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Aho II * NDmero 45 • 8 al 15 de Julia de 1986 
160 pros. (incluido I. 
Canarias, 155 ptas. ÷ 10 ptas. sobretasa area. 
Ceuta y Melifla, 155 ptas. 
Program 
Acci6n 
Hasta ahora, mane/at el disco desde c6digo 
mquina estaba vetado a la gran mayoria de 
usuarios. Con este articuto, van a quedarte 
daras muchas cosas, pero sabre todo vas a 
descubrir cdmo el LOCOMOTIVE de mstrad 
puede aprovechar toda /a paranoia de/CPM, de una 
farina tan sendlla coma eficaz. Lee, fee y verbs... 

ras la lectura de este articulo, aprenderds a 
corregir y ed#ar tus procedimienos en toga, 
Conace el mane/o de todas y coda una de los 
tedas de control. Y de paso, por qu no., 
repasemos un poco los pardmetros. 

m6quina i _ 
Convertir un programa hecho en BASIC a c6digo 
mdqu/no puede no ser tan d;fFcil como pensamos. 
Comience desde ahora a ufi/izar /lamadas a/firmware 
y advierta el cambio de v.e./ocidad, iViva fa diferencia! 
9 an no ha hecho su declaraan do la rondo, 
A&[ER&OFT se Io pone fcil. Haga ahora, con ayuda 
de su ordenador fa dedaraci6n y descubra una de las 
mfliples razones qua justs?icon/a existencia de este 
tipo de aparatos. 
Oespus de haber sido captuwdo, /uNado y 
candenado in/ustamene, onthy decide huir de la 
c6rceL Ayddale en su #resurosa huida. 

i' Serie Oro 
', Jugar a /as cartas siempre rue un peligro, al menas 
para el bo/sillo. Si este /uego, adam,s, es nuestro viejo 
conocido, el plato y el oponente un CPC, ta cosa es 
aOn m6s grave, No desesperes, y piensa qua de una 
farina o de ora siempre puedes acabar reseteando. 
II IN 
II 
II 
¢ _1, 

[] [] 

pasos 
Con este orticufo damos par finafizado todo Io 
relafivo a la fectura de/tedado. Aprende ya en fa 
recta final, los /fimas suti/izas de esa potente 
herram/nta, qua ofrece tu Amstrad a tray, s de la 
uti//zaci6n de KET e INKEY$. 

COHO AMSTRAD 3 



Ordena tus propias ideas 

Le sacarfis partido a tu ordenador 

SIMULACIONES: REPLICA 
LA REALIDAD CON TU 
ORDENADOR 
Tim Hartnell 
1.643 ptas. 

SISTEMAS EXPERTOS. 
INTRODUCCION AL DISElqO 
Y APLICACIONES 
Tim Harmell 
2.120 ptas. 

RUTINAS EN LENGUAJE 
MAQUINA PARA AMSTRAD 
Joe Pritchard 
1.590 ptas. 

PROGRAMACION 
AVANZADA DEL AMSTRAD. 
Don Thomasson 
1.166 ptas. 

$° ' " Ill.ill illl Ill IU 
" "  PAINT ll', " 
t 0 '  . , , %_. 
ILIGENCIA ARTIFICIAL 
CONCEOS Y PROGAS 
T Hae, 
l.4pt. 

EL LIBRO GIGANTE DE LOS 
JUEGOS PARA AMSTRAD 
K. Bergin y A. Lacey 
1.378 ptas. 

F 7Le"s ego me envien el catog'dde su e''dito'a7 
I ' [] Les ruego me envfen los siguientes tftulos: 
I 

TOTAL 
[] Adjumo taldn bancario a 
GRUPO DISTRIBUIDOR EDITORIAL, S. A. 
[] Pagard contrarrembolso (+ 125 pesetas de gasto de env/o). 
[] Giro postal. 

Nombre 

Profesi6n 
Direcci6n 
C.P. 
Provincia 
#/A2 

Localidad 

Programaci6n 
del Z80 

Rodnay Z..s 

PROGRAMACION DEL Z 80 
Rodnay Zaks 
2. 915 ptas. 

COD1GOS Y CLAVES 
SECRETAS: 
CRIPTOGRAFIA EN BASIC. 
Lislados para MSX, Spectrum, 
Amstrad, Commodore 64, 
Apple II 
Gareth Greenwood 
1.378 ptas. 

AN,  kYA 

Adquidralos en su libren'a habitual. 
Si no lees posible o desea que le enviemos nuestro caogo, en,a'e esle cup6n .a. 
Apdo. de Correos 14632, Ref. D. de C. 28080 MADRID 



NUEVOS PROG " ' ' $ 
DE MAST R$OFT "ARA 
LOS PCW Y • 128 

 ASTERSOFT ha 
sacado a la luz tres nuevos progra- 
mas todos elias para los PCW y 
6128. 
Estos son: 
-- MASTERBLOCK. Es una agenda 
en la que podremos trabajar con los 
tel6fonos que nos interesen, creando 
su alto y su baja, hacer modificacio- 
nes, consultas par su nombre y tel6- 
fono, asi coma imprimir direcciones. 

-- MASTERGEST. Es un gestor de 
cuentas bancarias con el que se pue- 
den crear cuentas, realizar movi- 
mientos, consultas de movimientos, 
borrado de movimientos, extractos 
de cuentas, elecci6n de banco y gra- 
baci6n de datos. 
-- MASTERQH. Coma se puede 
adivinar par su nambre, este progra- 
ma va destinado a la confecci6n de 
quinielas hipicas y podremos alma- 
cenar en 61 los datos referentes a ca- 
da caballo, tales coma puesto en las 
carreras celebradas, fecha de la mis- 
ma y, par supuesto, elaboraci6n de 
un pron6stico. 

JOYSTICK MOUSE 

a disponemos en 
nuestro pals del JOYSTICK MOUSE 
de la casa alemana RUS WARE. Este 
producto es distribuido en Espaa 
par ENFA IBERICA, S. A.S.A. 
Este rat6n puede ser utilizado en 

un AMSTRAD 464 (SCHNEIDER 464 
en el mercado alem6n). 
Y el paquete donde va est6 com- 
puesto par el programa de funciona- 
miento, el interface para el rat6n y 
el rat6n en si. 
Este, que est6 bien terminado, 
cuenta con la posibilidad de extraer 
su bolita de desplazamiento, para 
poderla limpiar o reemplazarla par 
otra nueva si fuera necesario. 

TODO UN 
RETO EN TU 
PCW JUEGO 
DEL OTHELLO 

por Zelig Software 
El juego del Othello es similar al 
luego de las Damas. Consiste en con- 
seguir el mayor nOmero posible de fi- 
chas del mismo color. Las reglas del 
juego son sencillas y van explicadas 
en el manual que le acompaa. 
El programa le permite jugar con- 
tra la m6quina o contra otro juga- 
dor. Si se juega contra el ordenador 
puede escoger entre tres niveles de 
dificultad. 
Equipo: 
Amstrad PCW8256. 
Amstrad PCW 

Caracteristlcas: 
Uno o dos jugadores. 
Tres niveles de juego. 
Nivel 0, Amateur. 
Nivel 1, Media. 
Nivel 2, Experto. 
Zelig Software: 
Passeig de les Germanies 15 
Tel. (96) 287 39 21 
Gandia. Valencia. 

coor AMSTRAD 5 



EL DISCO E 
MAQUINA 

Quiz6 el suefio dorado de muchos programadores sea el 
poder tenor un control total de su ordenador. Pues bien, hay 
vamos o realizar uno de los suefios de cualquier usuarlo, 
conocer o rondo la unidad de disco; pero no desde Basic, no, 
iqu vo!, has vomos a meter en c6digo m6quino. 

juiz6 muchos de 
vosotros as pre- 
gunt6is sabre la posible ufi idad de 
esfo, pues bien, as Io vamos a decir, 
esfo as puede dor pie a creoros vues- 
fros propios programas paro formo- 
fear, sin tenor que recurrir al FOR- 
MAT o al DISCKIT2/3, ver los fiche- 
ros de texto desde Basic, incluso, po- 
ra los mas osados hacer un IFILE- 
COPY o un IPIP. 
Bien, pero antes que nod, debe- 
mos saber unas cunfs cosas: 
Yo sabemos que el Amsfrad pue- 
de direccionor mas ROM de Io que 
tiene, de hecho, Io unidad de disco 
Ilew su propia ROM, Ilamad ROM 
del BIO$. Si echomos un visfazo o la 
tabla 1, podremos ver el mapa de 
memoria de CPIM 2.2, que es similar 
al de nuestro Amstrad con una uni- 
dad conectada. 
Ahora bien, dentro de de los Ila- 
madas a la ROM de disco, existen 
dos grupos diferentes, m6s uno adi- 
cional del sistema operativo. 
Dentro de los grupos de la ROM 
de BIO$, est6n: 
-- La tabla de saltos extendida, 
que comienza a partir de la #BE80 
y contiene Ilamadas adicionales pa- 
ra escritura y lectura fisica del disco. 
-- La tabla standard de CP/M, 
que es aprovechada par AMSDOS 
cuando 6ste toma el control del dis- 
co. AI igual que la ROM alta de Ba- 
sic, esta tabla es copiada en RAM al 
hacer un arranque de CP/M, y se si- 
tOa detr6s de BDOS, que es carga- 
do del disco. 
Si consideramos el grupo del siste- 
ma operativo, nos encontramos con 
rutinas de ayuda para la apertura y 
cierre de ficheros, escritura y lectu- 
ra de los mismos, etc... 

6 ,/ctoeoeeAMSTRAD 

iPero ojo! A pesar de esto, es muy 
peligroso hacer Ilamadas al sistema 
operativo de disco sin saber exacta- 
mente qu6 hace la rutina, ya que, 
operamos directamente con el con- 
trolador, y no con la CPU, par eso, 
las Ilamadas m6s usuales es aconse- 
jable hacerlas al grupo de saltos del 
sistema operativo y no a la ROM de 
BIOS, a no ser que no le importe ha- 
cer polvo la unidad de disco. 
En la tabla 2 est6n descritas las 9 
rutinas b6sicas (hay m6s de 9) que 
componen el RIO$ extendido. Nin- 
guna de elias es accesible desde el 
sistema operativo srbndard, de he- 
cho no existen coma tal. La Onica for- 
ma de acceder a elias es mediante 
su c6digo de control, y con una Ila- 
mada a KL FIND COMMAND, dan- 
do la direcci6n donde est6 almace- 
nado el c6digo; con Io que se nos de- 
vuelve la direcci6n de selecci6n de 
ROM (reg. C) y la direcci6n equiva- 
lente en HL. 
Nosotros, para ir hacienda boca, 
crearemos algunos comandos RSX 
que nos sirvan para ir manejando 
poco a poco el disco desde m6qui- 
na. Nuestro primer comando es un 
ITYPE. 
En la tabla 3 estn incluidas los ru- 
tinas que vamos a usar para crear el 
comando. De hecho, estas rutinas es- 
tn incluidas en el sistema operativo 
b6sico, pero acceden a la ROM del 
BIOS para poder hacer operaciones 
mrs de baio niveh), coma posicio- 
nar la cabeza del disco, examinar la 
pista y el sector, el directorio, etc... 
Antes que nada, vamos a exami- 
nar un poco el funcionamiento del 
AMSDOS: 
Lo primero que podemos pregun- 
tarnos es acerca de las cabeceras. 
Llevar6n los programas cabece- 
ra o no? Pues son programas ASCII 
ysecargan a partir de la #0100; sin 
embargo, los ficheros Basic y BINa- 
rios si Ilevan. 

Byte Funci6n 

0 
h..8 
9.,.II 
12...I5 
16...17 
18 
19...20 
23 
24..,25 
26..27 

Ndmero USER #00... F 
Nombre, rellenado con 
espados si fiene menos de 8 
car. 
Tipo, fombi#n re//enodo con 
espacios. 
No usados, van en 00. 
No se usan en disco, van en 
O. 
Contiene el tipo de fichero. 
Longitud de dotos. 
Se pone a #fF si es el primer 
bloque. 
Direcci6n de datos. 
Direcd6n de enlrada. 



, / 

Este es el formato aproximado de 
una cabecera en disco, es equivalen- 
teal tipo definido en cinta. Contiene 
todos los datos sabre el fichero en 
particular, y su Iocalizaci6n dentro 
del disco es siempre acompaando 
al fichero. 
AMSDOS tiene acceso alas llama- 
das del cassette, pero adaptadas pa- 
ra el disco, esto le da al ordenador 
una facilidad absoluta para cambiar 
de cinta a disco a voluntad. 
Aunque AMSI)OS hace usa de es- 
tas rutinas, tambiCn tiene acceso a la 
RaM de disco, que facilita no s61o los 

accesos a la propia unidad, sino que 
tambin incorpora en memoria un 
juego de instrucciones ItS,X. para po- 
der manejar los ficheros de disco a 
voluntad. 
El mayor desconocido de estos co- 
mandos quiz6 sea el IP, ASIC, que ini- 
cializa el ordenador y vuelve a AMS- 
DOS. 
Tambin AMSDOS dispone de su 
propio juego de errores aadidos al 
sistema, cada uno de elias identifica- 
dos con un c6digo interno, estos c6- 
digos son retornados cuando una Ila- 
mada no es satisfactoria, y son los si- 
guientes: 

#0£ 
#OF 
//20 
#21 
#22 
#23 
#24 

• . Fichero no abierto (File not 
open) 
Final flsico de fichero 
(EOF met) 
Final de datos en fichero 
(EOF met) 
Formato de datos err6neo 
(Bad command) 
Fichero a6n existe (File 
already exist) 
Fichero no existente (not 
found) 
Directodo Ileno (Directory 
ull) 
Disco Ileno (Disc full) 
• . . Disco equivocado (File not 
close correctly) 
• . . Fichero s61o lectura (File 
is read-only) 

Los errores mayores de #40 son los 
provenientes del controlador de dis- 
co, y suelen ser errores de HARD 
normalmente. 
El formato es el siguiente: 

bits 7 y 6 siempre a 1 
para indicar error <<reservado>. 
bit 5 ... data error. 
bit 4 overrun error. 
bit 3 drive not ready. 
bit 2 no data (en sec- 
for). 
bit 1 not writable (dis- 
co protegido contra escritura). 
bit 0 adress mask mis- 
sing (falta marca de direcci6n). 

Despus de conocer un poco me- 
jar AMSDOS, pasamos a describir 
qu hace nuestro nuevo comando 
RSX. 
El programa se divide en tres par- 
tes: el comando en si, el programa 
principal y la gesti6n de errores. 
En las lineas 10 a la 100 crearnos 
el comando. 
El programa principal comprende 
de la linea 110 al final. 
Las rutinas de error intercaladas 
est6n en las siguientes lineas: 

-- En la linea 110, donde se mira 
el nCmero de par(metros existentes. 
-- En la linea 260, si el fichero no 
ha sido abierto correctamente, vol- 
vemos a Basic. 
-- En las lineas 290 a 300, donde 
comprobamos el final del fichero. 
En las lineas 370 y 380, si pulsa- 
mos < ESC + el programa retorna a 
BASIC. 
Par Io dem6s, la nica complica- 
ci6n aparente del programa la apor- 
ta el manejo de indexados para car- 
gar los par6metros del RSX. 

Mapa de CPIM 2.2 

-- TPA: Transient Programa Area. 
Area de programas transitorios. 
Aqui se cargan los programas en 
CP/M. 
-- BIOS: Basic Input / Output 
System. Sistema b(sico de entra- 
das/salidas. Es el sistema encargado 
de los ports de entrada y salida (uni- 
dad de disco, cassette, teclado, 
etc...). Reside en la RaM BIAS, iden- 
tificada par el n0mero 7. 
--CCP'. Console of Command Pro- 
cessor. Consola o monitor de proce- 
so de comandos. Aqu{ se comprue- 
ban las entradas de teclado, la vali- 
dez de los COMandos, etc... 
--BDOS: Basic Disc Operative 
System. Sistema operativo b6sico de 
disco. Es donde residen las rutinas de 
control del disco. Estas rutinas son las 
principales, y su funci6n determina- 
da se ejecuta accediendo alas ruti- 
nas del BIAS, esto es, las rutinas del 
BIaS son el nOcleo del sistema, mien- 
tras que el BDOS contiene <el pro- 
grama principab. 

Rutinas bsicas 
del sistema 

--CAS IN OPEN-- # BC77 
Abre un fichero de entrada de da- 
tos para el disco, equivale al <<OPE- 
NIN> de Basic. En c6digo m6quina 
necesita los siguientes par6metros: 
B contiene la long. del hombre del 
fichero. 
HL contiene la direcci6n donde es- 
t6 almacenado el nombre del fiche- 
ro. 
DE contiene la direcci6n de un 
6rea de memoria de 2k libres, que 
actOa coma buffer del disco. 
ICOHOF AMSTRAD 7 



DirectiOn 
#FFFF 

#000 

#BECO 

#AD33 

#9F06 
#9700 

#0100 
#0000 

M''' 'E " ' *RI' 

Grupo Notas 

ROM de/BIOS 

STACK del BIOS 

SAL TOS EXTENDIDOS del BIOS 

Se solapa con la memorio de pontalla 
y Io ROM alto. 
Aqui reside la pile del BtOS, que es 
donde se guerdon los dotes y 
por6melros de/sistema operative pare 
su utilizocidn posterior. 
Table de llamadas extendidos del 
sistema operative. 

VARIABLES FIRMWARE del BIOS 

Los RSX van aqui, 6a/ando CCP y 
BDOS, 

SALTOS STANDARD del BIOS 

(Basic Disc Operative System), El 
si#emo operative 6dsico de disco, 

CCP 
TPA 

Console Command Processor. 

Transient Program Area. Area de 
programas transitorios. Aqui van los 
progromas escritos en CP/M. 

P6gina 0 

A ''$ "RI I'ALE$ ' L : 0 

Llamada Cgigo 
SET MESSAGE CTRL-A # 0 l 
SETUP DISC CTRL-B # 02 
SELECT 
FORMAT CTRL--C # 03 
READ 
SECTOR CTRL-D # 04 
WRITE 
SECTOR CTRL-E # 05 
FORMAT 
TRACK CTRL-F # 06 
MOVE 
TRACK CTRL-G # 07 
GET DR 
STATUS CTRL-H #08 
SET RETRY 
COUNT CTRL-I # 09 

Funci6n 
Habilita/inhabilifa los 
mensajes de error. 
Inicial/za pardmetros del 
disco. 

Selecciona un formato 
standard. 

Lee un sector del disco. 

Escribe un sector en el 
disco. 

Formatea una pista 
completa. 
Mueve la cabeza hacia una 
pista concreta. 
Comprueba el estado del 
disco. 

Selecciona el ndmero de 
veces que ha de repetirse 
los mensajes de error. 

--CAS IN CLOSE-- # BC7A 
Cierra el fichero de entrada de da- 
tos, equivale al CLOSEOUT de Ba- 
sic. 
--CAS IN CHAR-- # BC80 
Lee un car6cter del fichero abler- 
to y Io deposita en el registro A. 
Si se ejecuta la acci6n, A contiene 
el car6cter (el c6digo ASCII del ca- 
r6cter) y hay aCarreo. 
Si se encuentra el final del fichero, 
A queda alterado, y hay aCarreo. 

q 17, 17% 
ATA 2%, 77 187, ?4 , 4, 
I, 2%4, 
122 IR, 
NEXT 
CALL 

Si el fichero se abre correctamen- 
te hay acarreo. 
EJEMPLO: 
Supongamos que queremos abrir 
un fichero Ilamado AMSTRAD.TXT. 
Tomamos como buffer la # 4000, 
el nombre Io guardamos en la 
# 3000. 

8 4,flC£OHOBBY AMSTRAD 

LD HL, 
# 3000 ; 
LD DE, 
# 4000 ; 
LDB, II ; 
CALL # BC77 ; 
JP C, INTRO ; 

NOP ; 
INTRO: N2P ; 

direcci6n donde estd el nombre. 

direcci6n del buffer. 
Iongitud del nombre. 
abrimos el fichero. 
si hay aCarreo saltamos a la entrada de datos. 
(JumP if Carry). 
aquf estarfa la rutina del mensaje de error. 
aquf est6 la rutina de entrada de datos. 
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10 
20 
30 
40 
50 
60 
80 
0 
100 
101 
110 
120 
130 
140 
150 
160 
17t0 
180 
lO0 
200 
210 
220 
23O 
240 
250 
260 
27O 
280 
200 
300 
310 
32O 
33O 
340 
350 
370 

blAME: 
COMM: 
BYTES: 
ENTRY: 

READ: 

380 
390 
400 CLOSE: 
410 
420 WAIT: 
430 
440 BUFF: 

ORG #8000 
ENT #8000 
LD BCCOMM 
LD HLjBYTES 
JP #BCDI 
DEFM "TYP" 
DEFB #C5,#0 
DEFW NAME 
JR ENTRY 
DEFB #00j#O0 
DEFB #00#00 
CP 1 
RET N 
LD H, (IX+l) 
LD L (IX+O) 
LD B,(HL) 
PUSH BC 
INC HL 
LD C,(HL) 
INC HL 
LD B.(HL) 
LD H.B 
LD LC 
POP BC 
LD DE.BUFF 
CALL #BC77 
JR NC,CLOSE 
LD A, 12 
CALL #BB5A 
CALL #BCS9 
JR NCjCLOSE 
CALL #BCSO 
CALL #BB5A 
XOR A 
CALL #BBIB 
CP 32 
JR Z,WAIT 
CP 27 
3R Z,CLOSE 
3R READ 
CALL #BC7A 
RET 
CALL #BBIS 
JR READ 
NaP 

Inicio del prorama 
Entrada del pro@rama 
Position de tabla de comandos 
Position de los bytes fibres 
De*inimos el comando 
Nombre del comando mends "E" 
Ultima letra +#80 ¥ ÷inal tabla 
Deinimos el nombre 
Eecutamos el pro@rama 
Bytes de usa del comando 
Testeamos el numero de parametros 
Volvemos st hay ms de t 

Guardamos la longitud del nombre 

Guardamos la position del hombre 
Deinimos el bu÷er de entrada 
Abrimos el ichero 
Si error cerramos Y RETorno BASIC 
Borramos la pantalla 
Si EOF Jchero cerramos y BASIC 
Pasamos al buer caracter entrada 
Visualizamos el caracter 
BorramOs reg. A 
Buscamos tecla pulsada 
Si es ESPACIOS esperamos 
Si es <ESC> volvemos a BASIC 
Seguimos entrando datos 
Cerramos ichero de entrada 
Vuelta a BASIC 
Esperamos pulsation de tecla 
Retornamos  la entrada de datos 
Inicio Buer de entrada 

--CAS TEST EOF-- # BC89 
Fsto rutina sirve para compensar 
la Faito de eficocio (]e la anterior 
al (]etecfar el final (]el fichero, equi- 
vale al FOF cle Basic. 
Si se ha Ilegaclo al final del fiche- 
to, hay oCarreo. 
Fstos son los rufinas sicas clue 
vamos a ufilizor pard hacer un ITY- 
pF, hombre. 

C6mo utilizar 
el programa 

Con ensamblador, cargar y en- 
samblar, grabar el objeto, y para 
cargarlo desde Basic: 
10 SYMBOL AFTFR 32: CLFAR 
20 MFMORY &7FFF 
30 LOAD "TYPF.BiN", &8000 
40 CALL &8000 
En Basic, simplemente es hacer 
funcionar el programa objeto inclui- 
do. 
FUNCIONES: 
Teclear ITYPE, "nombre.ext" pa- 
ra 664y6128 
Para 464, aS = "nombre.ext" ITY- 
PF, ./o o $. 
Pulsando la barra espociodora se 
detiene el listado, para seguir pulsar 
cualquier tecla. 
Si pulsamos ESC, el programa re- 
torna a Basic, pero esto s61o funcio- 
na si ejecutamos un: 
KEY DEF 66,0,27 antes de cargar 
el programa. 
coHo AMSTRAD 9 
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Cuando estamos creando un programa en cualquiera de los 
lenguaies de programaci6n que nuestro Amstrad nos permite, 
necesitamos hacer continua y repetidamente modificaciones 
de toda [ndole y alcance. Para ello hemos de conocer a/go 
que en el argot inform6tico Ilamamos tEDITOR. Cada 
ordenador, y cada lenguaie dentro de un mismo ordenador, 
presentan peculiaridades sin cuyo conocimiento resulta 
pr6cticamente imposible centrarnos en la creaci6n de un 
programa. 

A continuaci6n presentamos una tobla en la 
que se muestran las teclas y combinaciones de 
teclas que necesitaremos usar para editar 
nuestros procedimientos y/o programas, indi- 
cando a continuaci6n el efecto de cada una 
de elias. 

problema se va a pre- 
sentar, una vez cargado el int6rprete LO- 
GO. La pantalla aparece en modo texto, con 
el inductor . situado en el ex emo superior 
izquierdo. 
Escribimos nuestras primeras instrucciones, 
puede que hasta nuestro primer procedimien- 
to. Lo repasamos y vemos que hemos permu- 
tado dos letras, por ejemplo. Un simple fallo 
mecanogr6fico. Intentamos subsanarlo. Com- 
probamos que no resulta f6cil. Supongamos 
que hemos escrito todo un procedimiento sin 
errores tipogr6ficos. Lo ejecutamos y no sale 
Io que dese6bamos. A modificar... Pero, c6- 
too? 
Hemos leido el exiguo texto que el manual 
de instrucciones dedica a LOGO. Pasamos 
a Io que Ilamamos Mgdo editgr. Empe- 
zamos a escribir. AI poco tiempo, hacemos uso 
de las teclas de cursor, de las teclas l:$¢, 
<<DELl>, <<CLR>>, etc. No obedecen a nuestros 
deseos. No realizan la funci6n esperada. No 
es Io que dice el manual. 
A los lectores que hayan pasado por estas 
experiencias, dedicamos las siguientes lineas. 
De otra manera no resulta demasiado grato 
experimentar con el LOGO de Amstrad. 
Y la verdad es que merece la pena, a pesar 
de todo. 

I 0 ,;[C,¢OHO** r A MS TRA D 

TECIA EFECTO 

CONTROL-A 

CONTROL-B 

CONTROL-C 
CONTROL-D 

CONTROL-E 
CONTROL-F 

CONTROL-G 
CONTROLoK 

CONTROL-N 
CONTROL-P 

El cursor se sitOa al comienzo 
de la linea en la que se en- 
cuentra. 
El cursor se sitOa un lugar ha- 
cia la izquierda respecto a su 
posici6n anterior. 
Se sale del modo de edici6n 
para entrar en el de ejecuci6n. 
Borra el car6cter o elimina el 
espacio sobre el que est6 situa- 
do el cursor. Este no se mueve. 
El cursor se sitOa al final de la 
linea en la que est6. 
El cursor se sitOa un lugar a la 
derecha respecto a su posici6n 
anterior. 
Se sale del modo de edici6n 
para entrar en el de ejecuci6n. 
Borra todos los caracteres si- 
tuados a la derecha del cursor. 
Incluso el que quedaba deba- 
jo de 61. 
Mueve el cursor una linea ha- 
cia abajo. 
Mueve el cursor una linea ha- 
cia arriba. , ., 

Existen, para esta funci6n de edici6n, tres 
teclas ms. 
Pero a estas alturas del texto, vamos a pa- 
sara una recomendaci6n. Consideramos in- 
teresante se recorte la tabla anterior, o bien 
se fotocopie; asi cuando trabajemos con =LO- 



GO polremos tenerla a la vista y efectuar 
consultas. Con el tiempo, y sin quererlo, es po- 
sible que Ileguemos a memorizarla. 
Las diferentes combinaciones de teclas indui- 
dos en la tobla, realizan las funciones ya ex- 
presadas. Es preciso hater notar que coda una 

de estas funciones, Ileva consigo otras, que po- 
drian considerarse como una consecuencia o 
complemento de las indicadas. Mejor que ex- 
plicarlas es pasar a la acci6n segOn veremos 
m6s adelante. Resulta sencillo y c6modo. 
Leyendo con detenimiento la repetida tabla, 
es preciso establecer una diferencia muy im- 
portante entre los combinaciones de teclas 
<CONTROL-G y <CONTROL-G. 
Con la primera combinaci6n, salimos del 
modo de edici6n entrando en el de ejecuci6n. 
Los procedimientos o programas se ejecuta- 
r6n tal como estaban. Si nuestro proyecto no 
era correcto, la ejecuci6n resultar6 tal cual, 
y a la inversa. 
Si nos proponemos entrar de nuevo en el 
modo de edici6n para hacer una o varias co- 
rrecciones, y una vez efectuadas 6stas, salimos 
de edici6n con la combinaci6n CON]'ROL- 
G), comprobaremos al ejecutar de nuevo el 
programa, que nuestras modificaciones han 
sido ignoradas. Esta es la importante diferen- 
cia. 
Saliendo de edici6n con <CONTROL-G, las 
modificaciones ser6n observadas escrupulosao 
mente. La ejecuci6n responder6 a nuestros 
cambios. 
Aun a riesgo de desviarnos un tanto del te- 
ma creemos conveniente poner de manifiesto 
que la combinaci6n ((¢ON'I'ROL-G) pulsa- 
da en modo EJI:¢U¢ION, interrumpe el pro- 
grama que se estaba ejecutando. FI interns de 
esta observaci6n, podria quedar justificado si 
alguna vez nos metemos sin querer en un bu- 
cle sin salida, o en una recursi6n que no res- 
ponde a nuestros deseos. 
Y ya seguimos con nuestras teclas. 
La ((BARRA ESPACIADORA)). Inserta 
espacios en blanco a medida que el cursor se 
desplaza a la derecha. Los caraderes situa- 
dos a su derecha, se desplazan igualmente. 
La tecla DI:L>> borra los caracteres situa- 
dos a la izquierda del cursor. Los situados a 
su derecha se desplazan hacia la izquierda, 
acompaando a 6ste. 
La tecla (RI:'I'URN) tiene un comporta- 
miento que depende de la posici6n dentro de 
la linea en la cual se encuentra el cursor. Con 
6ste al final de linea, sobre espacio en blan- 
co, al pulsar la mencionada tecla, el cursor se 
sitOa al comienzo de la siguiente. Para no alar- 
garnos, proponemos que el lector experimente 
con esta tecla, habiendo situado el cursor pre- 
viamente en distintas posiciones dentro de una 
linea. 

Despu6s de la primera lectura hasla este 
punto, sugerimos la puesta en marcha del 
Amstrad y la carga de (LOG, O>. 
Enlazando con nuestro 61timo articulo de 
ANALOGO (n. ° 40 de nuestra revista), 
presentamos un procedimiento con ingredieno 
tes similares, que nos permitir6 la aplicaci6n 
de recursos ya conocidos, al trazado de 
(GRAFICOS DE LA TORTUGAL 
Podemos valernos de nuestros recientes co- 
nocimientos adquiridos sobre el editor, para 
escribir nuestro procedimiento. Incluso para 
practicar. Hasta podriamos equivocar- 
no:)) un poco. 
Carguemos LOGG. A la derecha del in- 
ductor ? escribamos ed. Asi nos situamos en 
modo de edici6n. Escribamas el siguiente pro- 
cedimiento: 

to espiral :lado :6ngulo :incl :inca 
if :lado > 150 [stop] 
fd :lad,,o, rt :6ngulo 
make lado :lado + :incl 
espiral :lado :6ngulo :incl :inca 
end , J 

Corrijamos, y a continuaci6n pulsemos la 
combinaci6n de tedas CONTROL-G. A la 
derecha del inductor, escribamos: 
cs ht espiral 6 90 2 O 
Recordemos: cs clear screen (borra panta 
Ila). 
ht hyde turtle (oculta tortuga). 
Los siguientes cuatro n0meros corresponden: 
El primera, a la Iongltud del primer trazo de 
la espiral. 
El segundo, al 6ngulo del primer quiebro de 
la espiral. 
El tercero, al incremento del trazo. 
El cuarto, al incremenlo del 6ngulo. 
Si queremos seguir jugando, una vez ter- 
minada la ejecuci6n del procedimiento ante- 
rior, tecleemos a la derecha del inductor, otra 
vez: 
cs espiral xx xx xx xx 
sustituyendo las equis por cuatro nOmeros a 
nuestro elecci6n, Con un poco de imaginaci6n, 
nos pueden saJir cosas bonitos y curiosas. In- 
tentemos comprender el por qu6 de los dibu- 
jos que obtenemos. 
,COHOeer AMSTRAD !I 



IMPRESION 
EN PANTALLA 

Nuestro curso de c6digo m6qulna entra hoy en 
una nueva y declsiva etapa. Hemos revisado 
exhaustivamente todo el grupo de instrucclones 
m6quina del ZSO, desde la primera hasta la 
6ltima, explicando su funcionamiento, su raz6n de 
ser y c6mo extraer de elias el m6ximo provecho 
en su aplicaci6n a un Amstrad. 

Hemos tratado 
tambin, y creo que Io hemos con- 
seguido, enfocar una parte de la 
programaci6n tradicionalmente con- 
siderada como drida y de ¢¢lite, de 
una forma amena, Ilena de ejemplos 
tiles, y sobre todo, interactiva, de 
forma que el lector participe activa- 
mente su ordenador desde la prime- 
ra Ifnea de cada artfculo. 
Con este rnismo espritu vamos a 
abordar la segunda y mds interesan- 
te parte de nuestro curso, que se 
puede resumir en muy pocas pala- 
bras: vamos a ensefar a todo el 
mundo a programar en tenguaje md- 
quina, siguiendo una metodologia 
sistemdtica y profundamente estudia- 
da. 
Qu c6mo vamo. a hacerlo? 
8ien, en mi opir",6n, de/a forma 
mds t6gica: plartedmdonos una ta- 
rea, escribindola en Basic y trans- 
cribindola a lenguaje mdquina Inea 
a Inea de programa. 
Asi, resultard tremendamente sen- 
cillo comprender c6mo se programa 
en mquina, y adaptar nuestra men- 
tea la forma de pensar requerida 
por este lenguaje, la cuat no tiene 
nada que ver con la del Basic excep- 
tuando que la 16gica de un progra- 
ma, en la mayorfa de los casos, es 
la misma. 
Antes de ceder la palabra a Alber- 
to Suffer, nuestro experto en lengua- 
je mdquina y director del curso, s61o 
queda dar las gracias al constante 
apoyo que esta secci6n ha recibido 
en todo momento de nuestros lecto- 
res a tray, s, tanto de crticas cons- 
tructicas, corno de cartas de felicita- 
ci6n y aliento; esperamos que la se- 
gunda parte reciba una acogida 
igualmente positiva y benvola. 
Jos Maria Diaz 

Pot: Alberto 
Su#er 

na vez estudiadas 
una a una todas las 
instruciones que puede utilizar el mi- 
croporcesador Z80 que Ileva incor- 
porado nuestro Amstrad, empezare- 
mos ahora con una serie de capitu- 
los en los cuales intentaremos con- 
vertir diversos programas escritos en 
Basic, a lenguaje mcquina. 
Para ello, escribiremos primero el 
programa en el lenguaje que la ma- 
yoria de nosotros conocemos mejor, 
o sea el Basic, y a partir de ahi, in- 
tentaremos traspasarlo a c6digo m6- 
quina, explicando paso a paso dicha 
conversi6n. 
Asimismo, cuando sea necesario 
utilizar cualquier Ilamada al firmwa- 
re, 6sta se investigar6 con deteni- 
miento, indicando los par6metros 
que son necesarios definir antes de 
la Ilamada a dicha rutina. 
Como inicio a esta serie, he prepa- 
rado un pequeo programa que 
creo fundamental para iniciarse en el 
estudio del lenguaje mcquina. Se tra- 
ta de la impresi6n de mensajes en 
pantalla. 
Dicho capitulo no es que sea fun- 
damental en cuanto al aprendizaje 
de q6digo m6quina se refiere, sin 
embargo, es vital en cuanto a la pro- 
gramaci6n de cualquier juego o uti- 
lidod. 
Si por ejemplo nos proponemos 
hacer un programa de agenda o 
cualquier base de datos, Io primero 
que deberemos hacer es imprimir un 
men en el cual se indiquen los op- 
ciones de que dispone dicho progra- 
ma. 
Si por el contrario nos proponemos 
hacer un juego, 6ste deber6 tener di- 
versos marcadores para informarnos 
de la situaci6n en que nos encontra- 
mos. 

I2 
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Pues bien, 6ste ser6 nuestro primer 
tema de estudio en esta serie de ca- 
pitulos. 
En este primer capitulo, veremos 
cu61 es la t6cnica utilizada para im- 
primir un mensaje en pantalla con di- 
ferentes plumas. Asi pues, el progra- 
ma en Basic que hemos preparado, 
nos ofrece el siguiente resultado: 
CURSO DE CODIGO MAQUINA 
MICROHOBBY AMSTRAD 
Coda uno de estos dos mensajes 
est6 escrito con un tipo de pluma dis- 
tinto. 
Como vemos, Io primero que ha- 
cemos en el programa en Basic, es 
colocar la pantalla en modo 1, para 
limpiar la pantalla y elegir dicha mo- 
do. 
Para efectuar dicha operaci6n des- 
de c6digo m6quina, recurriremos a 
una Ilamada al firmware que nos 
proporciona el modo de pantalla 
elegido. Dicha Ilamada es la siguien- 
te: 
SELECCIONA MODO DE PANTA- 
LLA. #BCOE 
Seleciona el modo de pantalla y se 
asegura de que dicho modo de pan- 
talla sea correcto. 
Condiciones de entrada. 
El resgistro A debe contener el mo- 
do de pantalla que se requiere. Asi 
pues el acumulador en este caso de- 
ber6 contener valores comprendidos 
entre 0-2. 
Condiciones de salida. 
Se corrompen los registros AF, BC, 
DE y HL. Se preservan los dem6s re- 
gistros. 
Asi pues en nuestro programa, an- 
tes de hacer la Ilamada a dicha ruti- 
ha, deberemos cargar en el acumu- 
lador el valor 1, ya que 6ste es el mo- 
do de pantalla que deseamos obte- 
ner para ejecutar el programa. 
A continuaci6n se elegir6 el n0me- 
ro de plgma con el que se quiere im- 
primir el primer mensaje en pantalla. 
Esto Io haremos tambi6n utilizando 
otra rutina en el firmware de nues- 
tro Amstrad: 
SELECCIONA PLUMA DE TEXTO. 
#BB90 
Selecciona una pluma de texto en 
la ventana seleccionada. Esta es la 
que se utilizar6 para escribir textos. 
Candiciones de entrada. 
El registro A debe conlener el n0- 
mero de pluma a utilizar. 
Condicianes de salida. 
Se corrompen los registros AF y 
HL, los dem6s registros son preser- 
vados. 

Seguidamente deBeremos elegir la 
posici6n de pantalla en la cual de- 
seamos imprimir el texto, teniendo en 
cuenta que es a partir de esa posi- 
ci6n donde va a empezar a imprimir- 
se el mensaje. 
Para ello, utilizaremos otra de las 
rutinas que el firmware nos propor- 
ciona y que es la siguiente: 
SELECCIONA LA POSICION DEL 
CURSOR DE TEXTO. #BB75 
Coloca la posici6n actual del cur- 
sor en los nuevas posiciones de fila 
y columna de la ventana selecciona- 
da. 
Condiciones de entrada. 
El registro H deber6 contener el 
n0mero de columna en el cual se de- 
sea imprimir y el registro L contendr6 
el n0mero de la ilia. 
Condiciones de salida. 
Se corompen los registros AF y HL 
y los dem6s son preservados. 
En este momento tenemos ya selec- 
cionados todos Io par6metros del 
mensaje a imprimir por Io tanto es- 
tamos ya en condiciones de pintar di- 
cho mensaje en pantalla. 
Para provocar dicha impresi6n, 
cargaremos el registro par HL con la 
direcci6n del texto que se desea co- 
Iocar en pantalla. Asi pues en nues- 
tra rutina deberemos cargar dicho 
registro con la direcci6n TXTI que 
es el primer texto a imprimir, y a con- 
tinuaci6n Ilamaremos a la rutina de 
impresi6n que hemos preparado y 
que hemos Ilamado PRINT. 
Vamos a estudiar el funcionamien- 
to de esta rutina paso a paso. En pri- 
mer lugar cargamos en el acumula- 
dor el valor que contiene la primera 
direcci6n a la que apunta el registro 
doble HL: 
PRINT: LD A,(HL) 
a continuaci6n comparamos ese va- 
lor con 253 queen nuestro caso va 
a ser el valor que indicar6 el final de 
mensaie. 
CP 255 
si el valor contenido en el acumula- 
dor es igual a 255, indicar6 que se 
ha finalizado la impresi6n del texta 
y se retornar6 al programa principal: 
RET Z 
En caso de que el valor contenido 
en A sea distinto a 255, la rutina de 
/(OHOr AMSTRAD 13 



impresi6n continuar6 su ejecuci6n, 
provocando la impresi6n en panta- 
Ila del siguiente elemdnto de texto 
mediante la Ilamada a una rutina del 
firmware: 
CALL #BB5A 
una vez hecho esto, incrementamos 
el puntero HL y volvemos al princi- 
pio de la rutina de impresi6n. 
JR PRINT 
IMPRESION DE UN CARACTER EN 
PANTALLA. 
#BB5A 
Imprime un car6cter en la actual 
venta de pantalla y obedece los c6- 
digos de control. 
Condiciones de entrada. 
El registro A debe contener el c6- 
digo ASCII del car6cter a imprimir. 
Condiciones de salida. 
Todos los registros y flags son pre- 
servados. 
Una vez impreso el primer mensa- 
je, deberemos seleccionar la pluma 
con la cual vamos a imprimir el se- 
gundo mensaie, esto Io haremos Ila- 
mando a una rutina del firmware es- 
tudiada anteriormente: 
LDA, 2 
CALL #BB90 
en este caso la pluma seleccionada 
ser6 la n0mero 2. 
A continuaci6n colocaremos el cur- 
sor en la posici6n de pantalla que se 
desea imprimir el segundo mensaje. 
LD HL,#OAOF 
CALL #BB75 
Una vez seleccionados los par- 
metros para la impresi6n del segun- 
do texto, cargamos en HL la direc- 
ci6n del segundo texto <TXT2)) y Ila- 
mamos a nuestra rutina de impre- 
si6n. 
Por Oltimo, s61o nos queda espe- 
rar a que se pulse una tecla, para 
ello utilizamos una rutina del firmwa- 
re que provoca este efecto: 
ESPERA A QUE SE PULSE UNA TE- 
CLA. #BB18 
Intenta tomar el valor de una te- 
cla desde el buffer de teclado. Esta 
rutina espera hasta que dicha tecla 
sea pulsada. 
Condiciones de entrada. 
No necesita ninguna condici6n. 
Condiciones de salida. 
El acumulador contiene el valor del 
car6cter que se ha pulsado desde te- 
clado. El Carry se pone a uno. 
Se corrornpen todos los dem6s 
flags. Se preservan todos los dem6s 
registros. 
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PROGRAMA 1 

MODE I 
LOCATE 
PEN 1 
PRINT 
LOCATE 
PEN 2 
PRINT 
WHILE 

"CLIRO DE COD GO MAaUINA" 
12:1 
"MICROHOBSY AMTRAD" 
! NKEY$= .... : bJ I:r.,l D 

LI$TA -* SE "SAMBLADO 

Ag8g 

Agge 3Eel 
Age2 CDeEBC 

Age5 3EgI 
Ag@7 CDgBB 

AgeA 21gAe9 
AegO CD75BB 

Aglg 2135Ag 
AgI3 CD2BAg 

Ag16 
Ag18 

AgIE 

Ag21 
Ag24 

Ag27 

3Ee2 

21gFgA 
CD758B 

214DAg 
CD28Ag 

CDISSB 
CP 

A02B 7E 
Ag2C FEFF 
Ag2E CS 
Ag2F CD5AB8 
A832 23 
Ag33 18F6 

29 ; 
38 IMODE 1 
4g ; 
58 LD A,I 
68 CALL #BCeE 
78 ; 
88 |PEN I 
188 LD A,I 
118 CALL 
128 
138 ;LOCATE 9,18 
148 l 
158 LD HL,#898A 
168 CALL #BB75 
178 ; 
188 IINPRIMIMOS EL PRIMER MEN:dE 
198 ; 
288 LD HL,TXT| 
218 C4LL PRINT 
228 ; 
238 ;PEN 2 
248 
25g LD A,2 
268 CALL #B898 
270 
288 LOCATE 
298 ; 
388 LO HL#SAOF 
318 CALL 
328 ; 
338 ;IMPRIMIHOS EL SEGUND0 MENSAJE 
348 ; 
358 kO HL,TXT2 
368 CALL PRINT 
378 ; 
388 IESPERA A QUE SE PULSE UA TECLA 
398 ; 
48g CALL #BBI8 
418 RET 
438 IRUTINA GENERAL DE IMPRESION 
448 
45 PRINT: LD A(HL) 
48 CP 255 
478 RET 
488 CALL #BB5A 
498 IND HL 
588 dR PRINT 
518 ; 

528 ;DATOS DE LOS MENSAJES A IMPRIMIR 
538 
A835 43555253 548 TXTI: DEFM "CURS0 DE CODIG0 MAQUINA" 
A84C FF 558 DEFB 255 
Ae4D 4D494352 568 TXT2: DEFH MICROHOBBY AMSTRAD 

I@ FOR N=&Agg0 TO &Ag60 
23 READ A:SUMA=SUMA+A 
38 POKE N,A 
48 NEXT 
50 IF SLIMA<>&262E THEN PRINT "ERROR 
EN DATAS" 
I DATA 62,1,285,14,188,62,1 
92 DATA 285,144187,33,18,9,205 
93 DATA I17,187,33,53,168,2g5,43 
4 DATA 16g,6222g5144,18733 
95 DATA 15I.2351171873377 
6 DATA 168,254316823524i87 
7 DATA 20112625425522859 
98 DATA 187,35,24246,67,85,82 
9? DATA 83,79,32,68,69,3267 

CARGADOR 

leg DATA 79,68,73,71,79,3277 
101 DATA 65,81,85,73,78,65,255 
102 DATA 77,7367,82,79,72,79 
183 DATA 66,66,89,32,65,-7,83 



ElOnico ordenador 
concebido para susfltui 
quina " " 
a o " " I!IF. 

ST" '-| 'CW8256 

UN COMPLET,.,' !IPO QUE INCLUYE: 
• Umdad Central (256 K RAM) • Teclado en castellano 
• Umdad de dsco (180 K por cara)• Pantalla de alia 
resoluoOn • Impresora alta cahdad (NLQ) 
• Programas: • Prdcesador de textos, sstema Operatvo 
CP/M Plus, Malla d Bas6 con JET SAM paraflcheros 
mdexados, lenguale DR LOGO 

PROGRAMAS PROFESIONALES 
• Contabddades • Almacenes • Facturac6n • HOJAS 
DE CALCULO. Multipln, Supercalc 2. Cracker, 
Plannercalc. BASES DE DATOS: DBase II. Amsfile, 
Flexdde, Boriar. LENGUAJES Cobol, Fortran, Pascal 
MT +, Pilot, etc. 

Tambi4n disponible la versi6n PCW 8512, con 512 K RAM y 2 ° disco de 1 MBYTE incorporado. 
P.V.P. 169.900,-- Ptas. + IVA 
| " ! 

SOLICITE DEMOSTRACION EN: 
Div,si6n in|ormltlca de i.ICl,,,3, Divisi6n --= de CAIFRIAS. 
Tendas especahzadas en mformatca y Equipos de oficina. 
NOT.&: El Amstrad tambien puede ser utilizado como "Terminal Inteligente" 
de 8randes equipos informhcos. 

I I/ ESPANA 
' GRUPO INDESCOMP 
Avda del Medlerrneo, 9 28007 Madr,d flex 47660 Tels 433 4,548- 43348 76- 433 44 58- FAX- 433 24 50 Delegac0n en Cataluha C/Ta.ag0na, 110. Tel. 32510 58 0801.5 Barcelona 



jHizo YA SU 

DECLARACION? 

se elija, el funcionamiento del pro- 
grama resulta id6ntico, variando Oni- 
camente entre una y otra declara- 
ci6n el contenido de las pantallas, 
que responde exactamente a los dos 
diferentes impresos. 

Ya Ilega el verano. Y con el verano, los planes para ir de vacaciones, 
la playa, el mar, y un sinf[n de planes optimistas para disfrutar el 
per[odo de vacaciones que se aproxima. Y con e#o, dos de los 
acontecimientos que todos los traba/adores esperan con mds 
impacienciw>. LA DECLARACION DE LA RENTA y el dolor de cabeza. 

analiza hay, intenta simplificar un 
poco la realizaci6n de ,'icha decla- 
ra i6n, realizando el impreso par us- 
ted. 
La realizaci6n, e la declaraci6n de 
la renta resulta para la mayoria de 
la genre una tarea bastante compli- 
cada, y par Io menos Master Renta 
evita la posibilidad de cometer erro- 
res en los c61culos que ella Ileva im- 
plicito. 
En arras palabras, vdyase al estan- 
co, si todavia no Io ha hecho, c6m- 
prese el impreso, coja el librito de ins- 
trucciones que viene dentro y con los 
datos necesarios se puede sentar en 
su ordenador, y empezar a introdu- 
cir los datos. 

En el disco en el que viene el pro- 
grama, incluye las versiones para el 
CPC 6128 y para los dos modelos del 
PCW, si bien en el caso del CPC 6128 
la impresara es imprescindible. Este 
disco contiene las programas nece- 
sarios del sistema operativo, par Io 
que para ponerlo en marcha habr6 
que inicializar el ordenador con es- 
te introducido, en el caso de los 
PCW, o teclear CPM en el caso del 
CPC, y el programa se pone en fun- 
cionamiento autom6ticamente. 
El primer mend, permite optar par 
el tipo de declaraci6n que se desea, 
bien simplificada o bien ordinaria. En 
el caso de la declaraci6n simplifica- 
da, 6sta se hace introduciendo los 
datos segdn el impreso de declara- 
ci6n D-IO1, mientras que en la de- 
claraci6n ordinaria se hace de acuer- 
do al impreso D-IO0. Independien- 
temente del tipo de declaraci6n que 
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' enu • 
. menus, 
claros sencillos 

Despuds de seleccionar el tipo de 
declaraci6n se pasa al segundo me- 
nO, id6ntico en ambas Ol0ciones, que 

Reteniones pot rendiientos del trabajo ,,: .............. 
Retencones par rendieientos del oapital ooiliario ....... 
Retenciones par rendimientos pro£esonales s artisticos ,.,  3 
Retenciones mputables a socios de sociedades ttansparentes 
Eagos £racienados, actividades profesionales s arhstias 
Pagos fraoionados, atividades eresariles g agrarias ,, 
OL retenciones 

COTA HIIENCIAL ( - ) (positiva o negtiva)  

3537S 
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presenta las cuatro pos]bilidades si- 
guientes: 
1. Realizar una nueva declara- 
ci6n, con Io cual se borrarian los da- 
tos anteriormente introducidos. Em- 
pieza a preguntar todos los datos 
para la declaraci6n. 
2. Modificaci6n de los datos, que 
permite rectificar cualquier error co- 
metido. 
;3. Listado de los datos. Permite 
listar por pantalla o impresora los 
datos introducidos anteriormente. 
4. Rellenado de impresos. Permi- 
te rellenar los impresos de la decla- 
raci6n, una vez que se est6 confor- 
me con los datos introducidos. 

El programa no contempla la po- 
sibilidad de grabar en disco los da- 
tos introducidos, por Io que cuando 
se decida empezar a realizar la de- 
claraci6n, no se debe desconectar el 
aparato hasta haber terminado to- 
talmente con ella. Cualquier interrup- 
ci6n haria que se perdieran todos los 
datos. 
La primera opci6n permite introdu- 
cir los datos de la declaraci6n. Est6 
estructurada en pantallas, y cada 
una corresponde a una secci6n del 
impreso, estando adem6s, realiza- 
das de manera similar a la del impre- 
so para facilitar la labor. Dentro de 
6stas, se introducen los datos, y to- 
dos los campos que suponen c61cu- 
los fijos de porcentajes, o cantidades 
fijas a deducir por familia, etc .... son 
realizados autom6ticamente, asi co- 
mo las sumas y los diferentes subto- 
tales y totales. Las preguntas que se 
realizan son similares alas del impre- 
so, y no dejan lugar a confusi6n. 
Contempla, entre otras cosas, la po- 
sibilidad de realizar los correspon- 
dientes c61culos para el pago fraccio- 
nado de la liquidaci6n. 
La modificaci6n de datos introdu- 
cidos permite modificar s61o el apar- 
tado en que exista un error. AI selec- 
cionar esta opci6n, van apareciendo 
todas las pantallas en el mismo or- 
den y pulsando RETURN el cursor pa- 
sa de apartado en apartado sin mo- 
dMcar los datos existentes, hasta Ile- 
gar al err6neo. En 6ste, se teclea el 
valor correcto, y luego se sigue pul- 
sando RETURN hasta acabar, o Ile- 
gar a otro error. 
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IMPUESTO SOBRE LA RENTA 
DE LAS PERSONAS RSICAS n.tnN 

Lo opci6n de listar los datos, per- 
mite obtener un listado bien par pan- 
talla, bien par impresora, de todos 
los datos introducidos. El listado pro- 
porcionado es muy completo, y v61i- 
do para comprobar o guardar una 
copia de la declaraci6n. 
La Oltima opci6n, Rellenado de Im- 
presos, rellena el impreso original de 
la declaraci6n con los datos introdu- 
cidos. 

Estamos ante un programa senci- 
Iio de manejar, de presentaci6n muy 
cuidada y con un manual de instruc- 
ciones m6s que suficiente, sabre to- 
do si se tiene en cuenta que no es 
muy necesario. Quiz6 se deberia ha- 
ber previsto la posibilidad de salvar 
los datos de la declaraci6n en disco, 
aunque realmente tampoco tiene 
mucho inter6s. Puede resultar Otil a 
una persona a la hora de realizar la 
declara¢i6n, sabre todo si son mu- 
chos los c61culos que hay que hacer, 
yes realmente pr6ctico en el caso de 
personas que tengan que realizar 
varias declaraciones, bien porque se 
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dediquen a ella, o bien simplemente 
porque tengan ((la desgra¢ia)) de sa- 
ber hacerlas, en cuyo caso, segura- 
mente tendr6 que hacer tambi6n la 
de algOn amigo. Porque eso si, par 
mucho programa que se tenga, si no 
se sabe hacer la declaraci6n, de na- 
da vale. Pero no podria ser de otra 
manera. Estamos ante un programa 
de ordenador, no ante un asesor fis- 
cal. Y par Oltimo, s61o desearles suer- 
te... 

I Master Renta PCW: 14900 
Master Renta 6128:14900 
Distribuye: 
MASTERSOFT 
I Centro Comercial Sto. Dorningo 
Ctra. de Burgos, km. 28 
Algete (Madrid) 
Tel. 662 12 89 
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&SERAS CAPAZ DE PILOTAR UN 'HARRIER"? 

HARRIER- 
disco: 3,900 pts, Ancodo 
cassette: 2,500 pts, vAnduo 

COLOSSUS CHESS- 
disco: 4,400 pts. 
cassette: 2,500 pts, vAnco 

ATREVETE A ENFRENTAR AL COLOSSUS A 0TR0 JUEG0 DE AJEDREZ 

L, TE GUSTARIA IR GANANDOLE 'PRENDAS" A SAMANTHA? 

• ,.-,. THE 
MUSIC SYSTEM 

SAMANTHA FOX- 
Spectrum: 1,995 pts. ivAincluido 
cas Afflstrad: 1,995 pts, v ncio 

SERA 

SISTEMA MUSICAL- 
Commodore: 4,300 pts, wincoo 
Amstrad cas : 4,300 pts. ncr,,o 
Amstrad disco: 5,800 pts, ncoo 

."'*' 
• lll3rallliBlBIInra 
I • I ,a,,o,,,,:,,,, I I CREA TU PROPIA MUSICA 
RECORTA Y ENVIA ESTE CUPON A:SERMA C/. BRAVO MURILLO, 377 - 3. 0 A. 
COLOSSUS - disco [] cassette [] S. MUSICAL- Commodore 0 cas. Amstrad [] disc. 
NOMBRE Y APELLIDOS: 
DIRECCION: CODIGO POSTAL: 
POBCION:, PROVCIA: 
FORMA DE PAQO: TALON BANCARIO 0 CONT REEMBOLSO 0 



En tu kiosco te espera 
algo muy inteligente 

El AMSI"RAD Especial n(unc- 
ro 2 ilacluyc una cinta de cas- 
setle adherida a la portada con 
un Icnguajc Lisp completo que 

te pcrmitifi comprendcr y do- 
minar las t&nicas mils comple- 
jas dc intcligencia artificial. 
Pot si fuera poco, en nuestra 

i 

, 3J. _:¢hd,I 0.7; f4 [y hVg..xH19 

A " ' " ' ' NUESTRO 
FABUIO$O O  R$O. 
PUEDE$ GAN4R t  
CPC-dI28 CON 
$00 CARGAR LA CINTA 

G 

cinta sc incluyen tambien dos 
concursos: uno, de disefio gr- 
rico de pantallas, para artistas, 
Ic permitirt ganar basra 
170.000 pesetas cn premios. En 
el segundo regalamos un ordc- 
nador Amstrad CPC6128. 
El nfimero 2 de AMSTRAD 
Especial trata un ainplio espcc- 
tro de interesantes temas, co- 
mo un comparativo de impre- 
sofas, que le ayudarfi a elcgir 
la ms adecuada a sus necesi- 
dadcs, como mullitud de pro- 
gramas y rulinas de utilidad en 
Icnguaje mquina como un pa- 
quote de sofl inlcgrado, con 
Ires progralnas cn UllO y till lar- 
go etcdtera quc stria demasia- 
do prolijo dcallar. 
Si no Io encucntras en tu kiosco, 
solici/alo direclamen/e 
a nuestra Editorial. 

_ adrid. 
/-' 140BB' pRESS, S. I. ,kp. de Correos 232. ,,k/cobendas 
 Re/eno ese cupbn  envioo o  
kpeidos / 
 Locodod 
t .  ?oesibn _., ,SO? Si  N°o de 475 plgS. 
e6tono ..CoHOBB .v *S D n. z o 9 ed° 
n  dbk e s9 e°°  
[NA ind0ido 
., ncono od o .................... echa e coou ..... 
0 Medtonle vrt 7 -o tupone 7b poa. d _ , ..... , ; 
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de huir, aunque el 
camino que le separa de 
la libertad es largo, la 
oventura continda. 

na nueva aventu- 
ra de Monty? Pues si, el h6roe de 
Gremlins Grafics continOa un la bre- 
cha; su constante obsesi6n es esca- 
par, y hasta que Io consiga todavia 
quedan unas cuantas aventuras m6s. 
Monty on the run es la primera 
aventura del heroe que conocen los 
usuarios de Amstrad, pero en el 
Spectrum, nuestro,migo fiene una 
merecida lama. 
Su histaria comenz6 con Monty is 
innocent, luego Monty an the run, y 
la serie no tiene fin. 

THE IIOUS£ 

Todas elias basadas en los ffpicos 
iuegos de laberintos, de los cuales 
rue precursor el famoso Manic Min- 
ner. 
jNo me digas queen estos fiempos 
todavia no hacen programas tipo 
Manic Minner, si eso est6 mcs pasa- 
do que el ordenador de ocho bits! 
Pues aunque asi Io parezca, se si- 
guen hacienda. Ultimamente hemos 
podido contemplar obras de este es- 
tilo, que de vez en cuando salen al 
mercado. 
Agn recuerdo dos ejemplos recien- 
tes: Brian Blood Axe y Dynamite 
Dan, todos con la misma construc- 
ci6n y siguiendo de cerca la idea de 
su padre, el Manic Minner. 
Pero los juegos de este tipo, no 
son todos iguales? Hombre, pues si, 
en elias el reto est6 en pasar de una 
pantalla a otra, aumentando la difi- 
cultad seggn superamos mayor ng- 
mero de elias. 
Aparte de eso, hay algdn afro 
cliente? Buena, tambign debemos en- 
contrar unos objetos, que nos ayu- 
dan a aumentar nuestro marcador y 
a Ilegar al final. 
Nada ms? Que m6s quieres, son 
juegos de la prehitoria yen los al- 
bores de la programaci6n, conseguir 
que alga se moviese en la panlalla 
ya era un lagro. 
De que va la historia? Mont, en 
su Oltima aventura, se encontraba 
preso en la prisi6n de Scudmore, lu- 
gar del cual pocos hombres salen 
con vida. 
Pero nuestro hroe, entre la intrin- 
cada maraca de corredores y pasos 
subterrneos, y gracias a la ayuda 

Y 
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inestimable de un amigo, ha conse- 
guido abrirse paso hasta salir de los 
muros de la prisi6n. 
Hasta aquf est6bamos en su prime- 
ra epopeya; Monty is innocent, en su 
segunda aventura, Monty tiene que 
escapar de la isla en la que est6 si- 
tuada la prisi6n de alta seguridad. 
Para ella s61o tiene que encontrar 
la barca que le conducir6 hasta la 
ansiada libertad. 
iPues eso debe de costar bastante 
trabajo? Mucho, en primer lugar te- 
nemos que conocer las pantallas que 
componen el mapeado del juego, de 
forma que sepamos c6mo pasar de 
una a otra y cucles tienen salida o 
continen alga de inter6s. 
Es d/f/d/pasar de una pantalla a 
otra z. Bastante, cada pantalla tiene 
sus trampas y elementos caracter/s- 
ticos, de forma que superarlos re- 
quiere perder un considerable nOme- 
ro de vidas, hasta encontrar el cami- 
no correcto. 
Cudles san esos elementos? Tene- 
mos de todo; prensas hidr6ulicas par 
debajo de los cuales hemos de pao 
sar, nubes que has elevan alas altu- 
ras, cuerdas para trepar, m6quinas 
que has aplastan, piscinas, monedas, 
cafeteras, murci61agos, etc. 
Pues con tanto material circulan- 
do par ahf, debe ser entretenido. Lo 
es, porque adem6s hay que superar 
una pantalla, despus de Io cual te 
encuentras con una ms dificil toda- 
via, hecho que puede Ilevarte a la 
m6s absoluta demencia cibern6tica. 
Este juego tiene puntos, o es de 
esos en que Io Onico es Ilegar al fi- 
nal? Los tiene, aunque Io interesan- 
tees encontrar el final; par tener, 
hasta tiene un ranking con las mejo- 
res diez puntuaciones, entre las cua- 
les puedes poner la tuya. 
A parte de eso alga interesante? 
En el juego hay 21 objetos diferen- 
tes, de los cuales solamente cinco 
componen la combinaci6n que has 
Ileva hasta la barca. Un detalle inte- 
resante, es que esta combinaci6n la 
podemos fijar nosotros al principio 
del juego, eligiendo los que m6s ra- 
bia has den. 
 Y los grdficos qu tal? No estn 
ml, usando el modo de 16 colores, 
los disefiadores han conseguido unas 
pantallas muy coloristas y de una 
amplia variaci6n, contribuyendo de 
esta farina a amenizar el programa. 
Qu6 me dices del movimiento? 
Buena pues los cosas se mueven par 
ahi, se utilizan una gran cantidad de 
objetos y elementos m6viles diferen- 
tes y las rutinas de movimiento cum- 
plen su cometido. 

• l..Dpl |n||ll 0.1 liI-$1:ogrl 
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Monty da unos saltitos con doble 
mortal, que tienen su gracia pero la 
cosa no pasa de ahi, desde luego no 
estamos ante un Exploding fist o un 
Knight Lore, donde el tamao de los 
personajes dificulta enormemente el 
movimiento. 
Mientras en 6stos las figuras miden 
ocho centimetros, Monty s61o mide 
tres. 
LY en general qu te parece? Un 
juego basado en los programas de 
la primera generaci6n, con gran 
cantidad de objetos, en el cual el ma- 
yor aliciente Io constituye el ir supe- 
rando pantallas hasta conocer el to- 
tal de las que componen el progra- 
mo. 



• L JUEGO 
D EL PLATO 

El plato es un traditional iuego de cartas, muy sencil/o, y que 
es ms entretenido cuanfo mEs r6pido se iuegue y m6s 
orriesgados seon los opuestos. 

ara empezar el 
programa te pre- 
guntar6 el nOmero de personas que 
vais a jugar adem6s de la m6quina 
que siempre juega. Podr6is iugar 
una, dos o tres personas. 
El juego empieza repartiendo cua- 
tro cartas a cada uno. La baraja es- 
t6 compuesta de cuatro palos, y en 
cada paiD hay dace cartas. La que 
m6s valor tiene es el <<A)>, seguido de 
la <K>, <Q), la <J, <9 y as/sucesi- 
vamente hasta Ilegar al 2>. 
La m6quina realizar6 una prime- 
ra apuesta y a continuaci6n cada ju- 
gador har6 la suya. Coma hay dos 
rondas de apuestas, y entre las dos 
no se puede sobrepasar el dinero 
que hay en el plato, cada apuesta se-. 
r6, coma m6ximo, inferior o igual a 
la mitad del dinero que el plato ten- 
ga en ese momenta. 
El siguiente paso es el descarte, 
primero el de la m6quina, y despu6s 
el de los jugadores. Las cartas est6n 
numeradas del uno al cuatro en el 
margen izquierdo del monitor. Para 
cambiar una de las cartas a la hora 
de descartarse, pulsa la tecla corres- 
pondiente a su n0mero y se coloca- 
rc boca abajo. Si quieres rectificar, 
no tienes m6s que volver a pulsar la 
misma tecla, y la carta se colocar 
de nuevo boca arriba. Una vez que 
est6n boca abajo todas las cartas 
que desees cambiar, pulsa [ I:NTI:R ], 
y le correr6 el turno al siguiente ju- 
gador. 
Una vez as hayis descartado to- 
dos, se as repartir6n cartas, y co- 
menzar6 una segunda ronda de 
apuestas. Estas apuestas sern coma 
las primeras; Io m6ximo que padres 
apostar es la mitad de la cantidad 
que haya en ese momenta en el pla- 
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to. Par otra parte ten en cuenta que 
quedarse eliminado en el momenta 
que la cantidad que posees sea infe- 
rior a 27 ptas. Estas 27 ptas., son las 
necesarias para poder poner 25 
ptas., en el plato cuando 6ste est6 ca- 
si vacio, y poder hacer dos apuestas 
minimas de 1 ptas., cada una. 
Ahora viene la parte decisiva. A 
cada jugador se le mostrar6 una car- 
ta que aparecer6 en la parte supe- 
rior de la pantalla. Si entre tus cua- 
tro cartas tienes alguna del mismo 
paiD que 6sa, y superior a ella, ha- 
brcs ganado la suma de tus dos 
apuestas, y el dinero pasar6 del pla- 
to a tu rondo particular. Si pierdes, 
el dinero que hayas apostado pasa- 
r al plato. 
AI principio las apuestas ser6n pe- 
queras, ya que el plato comienza 
con poco dinero, pero si arriesg6is 
un poco al principio, el plato aumen- 
tarc, y las apuestas podr6n set ma- 
yores. 
No pienses que la m6quinm va 
a ganar siempre, ya que ella sabe Io 
msmo que tO. Si te parece que ella 
gana m6s veces que tO es porque tie- 
ne mejor memoria; no se olvida de 
vuestros descartes y cuando calcula 
la probabilidad que tiene de ganar, 
tiene en cuentas todas las cartas que 
hay sabre el tapete. 
Seguro que pronto le cojes el tru- 
eD y ganas a la <<m6quina>>. 

18 CLEaR:KEY 138.' ' 
2g PAPER 8:BORDER 8:CLS 
38 FOR ¢=g TO 3:INK ¢,g:NEXT 
48 ENT 1,15.-5,1:ENV 1,3,1,5 
50 ENT 2IB,18,2:ENV 
6B ENT 3,40,-2,1:ENV 3,3,1714 
78 ENT 4,28,18,2:ENV 4,3,-1,14 
88 ENT 5,38,-2.2:SYMBOL AFTER 222 
98 SYMBOL 222,8,8,8.g,2,5,18,5 
I8 SYMBOL 223.8,8,8,8,128,64,168,8 
0 
I18 SMBOL 226,28,2B,28,127,127,27 
.8,62 
128 SYM80L 227.8.28,2,12762,2B,8 
138 SYMBOL 228,54.127,127,127,2,28 
,8 
148 SYMBOL 229,8,2B,62.127,127,62,8 
,62 
158 SYMBOL 
168 SYMBOL 249888,88,255,255 
178 SYMBOL 258,6,6,6,6,6,66,6 
180 SYMBOL 251,96,96,96,96,96,96,96 
Igg SYMBOL 252,8,7,31,68,48,112,96, 
96 
288 SYMBOL 253,8,224,248,68,12,14,6 
,6 
218 SYMBOL 25496,96,112,48,68,31,7 
228 SYMBOL 255,6,6,14.2,68,24B,224 
238 MODE I:CLEAR 
248 WINDOW #8,1,48,1,19:PAPER 
258 WIN00W #1,1040,28,25:PAPER #i,2 
:CLS #I 
268 PEN 2:LOCATE 7,12:PRINT'Cuanto 
vals a jugar (-3) 
278 PEN 3:LOCATE 9,IB:PRINT CHR$(24 
)+" pot Alejan@ro Gonzalez '+CNR$(2 
4) 
288 INK 8,28:1NK 1,28:INK 2,8:INK 
,6:BORDER 8 
298 SOUND 7,288,28,15:PEN I:LOCATE 
1,18:PRINT 'PLATO" 
388 LOCATE 1.19:PRINT STRINGS(5,288 
);:a=126 
318 x=I28:y-375:DIM L(88) 
328 FOR xa=l TO 88 STEP 2:L(xa)=TES 
T(xa,a):NE×T 
338 FOR t=8 TO 7 STEP 2:MOVE x,y:S0 
UND I°158,15.15,2,1 
348 FOR xa=l TO 88 STEP 2 
358 nj$=INKEYS:nj VAL(nj$):;F 
THEN 398 
368 IF L(xa)=l THEN c=2 ELSE 
378 ORAWR 18,8,c+INT(2*RND):NEXT:y= 
y-3:NEXT:a=a-2:IF a<>Ig6 THEN 328 
388 nj$=INKEY$:nj VAL(n$):IF nj<l 
CIR nJ)S THEN 388 
398 L00TE I.I:PR|NT SPC(5:INK 
24:SOLIND 
488 
418 I-sm+9:s2=sl+9':=s2+9 
428 p=25+25*nj:m-975:jI-975:j2=75: 
j3=975 
438 LS:PEN 3:LOCATE 15.14:PRINT'Te 
ANOUIL0 !'' 
448 PEN 2:LOCATE 8.8:PRINT"EspeF.a a 
que baraje 
458 LOCATE 5,18:PRINT"( esta vz ta 
rdo 25 egunos )" 
468 DIM A(47):DIM B(47};PANDOMIZE T 
IME 
478 FOR t=8 TO 47 
488 A(t)-INT(48*RND) 
48 FOR it=8 TO t-I 
588 IF A(tt)=A(t) THEN 
5Ig NEXT:NEXT 
528 FOR t 8 TO 47:B(t)-A(t):NEXT 
538 CLS:MOVE 3,96:DRAWR g,384,2 
548 MOVE 636,96:DRAWR 8,384,2 
558 LOCATE sm,6:PRINT'MAQUINA' 
568 LOCATE sI+2,:PRINT"J-I" 
78 IF nj-1 THEN 
588 LOCATE s2÷2,6:PRINT"J-2' 
598 IF nj-2 THEN 618 
688 LOCATE SS+2.6:PRINT'J-3' 
618 PEN #1,8:LOCATE #1,13,4:PRINT 
I,'PLAT0 =';SPC(6);"pts" 



RA DEL °° ' 

LINEA$ DE$CRIPCION 
10-220 Defin/ci6n de 
caracteres y 
en volventes. 
220-370 Definici6n de 
portada. 
380-520 Definici6n de 
variables y 
canfecci6n de la 
baraja. 
530-760 Definici6n 
de la pantalla 
de juego. 
770-940 Reparto de cartes. 
950-1200 Apuesta de la 
mdquina. 
1210-1320 Apuesta del 
jugador 1. 
1330-1450 Apuesta del 
jugador 2. 
1460-1580 Apuesta del 
jugador 3. 
1590-1620 Comprueba si se 
ha hecho el 
descarte o no. 
1630-1640 En el margen 
izquierdo n6meros 
de las files de las 
cartes. 
1650-1710 Descarte de la 
mdquina. 
1720-1830 Descarte del 
jugador 1. 
1840-1970 Descarte del 
jugador 2. 
1980-2100 Descarte del 
jugador 3. 
2110-2130 8orra n6mero de 
margen izquierda y 

LINEAS DESCRIPCION 
manda a repartir 
cartes. 
2140-2320 Comprobaci6n del 
resultado de la 
mdquina. 
2330-2500 Comprobaci6n del 
resultado del 
jugador 1. 
2510-2680 Comprobaci6n del 
resultado del 
jugador 2. 
2690-2820 Comprobaci6n del 
resultado del 
jugador 3. 
2830-2970 Confecciona otra 
baraja y reparte 
cartes. 
2980-3170 Subrutina de 
dibujar las cartes. 
3180-3250 Subrutina de 
dibujar las cartes 
boca abajo. 
3260-3340 Subrutina de 
colocar 25 ptas., 
en el plato cuando 
hay mends de 10 
ptas., en 1. 
3350-3420 Subrutina de 
modificar el dinero 
del plato, m6quina 
y jugadores. 
3430-3550 Subrutina de 
dibujar la carte 
que le toca a la 
mbquina o 
jugador. 
3560-3630 Subrutina de final 
de partida. 

620 RESTORE 650:FOR t-1 TO 3:READ m 
x,my,dx,dy 
630 HOME mx,mT:DRAWR d×,g,0:DRAWR 0 
b40 DRAWR -dx,g:DRAWR 0,-dy:NEXT 
650 DATA 17228296,24,142,26,356,2 
8,102,24,436,82 
60 LOCATE #I,m,I:PRINT 41,CHR$(15 
O);STRING$(5I55);CHR$(156} 
670 LOCATE #I,sm2:PRINT 41CHR$(14 
680 LOCATE #I.I,I:PRINT 41CHR$(15 
O}STRINO$(5I55);CHR$(156} 
690 LOCATE #I$1,2:PRINT 418HR$(14 
780 IF nj I THEN 760 
710 LOCATE #1,s2I:PRNT 41,CHR$(15 
O}STRING$(5,155CHR$(156} 
720 LOCATE #1s22:PRINT 41CHR$(14 
730 IF nj=2 THEN 760 
740 LOCATE #IsSI:PRINT 41,CHR$15 
0)STRING$(5,155)CHR$(156) 
750 LOCATE #10$32:PRINT 41CHR$(14 
5'#":SPC(4)CHR$(145) 
760 GOSU8 3350 
770 IF E(0)=I THEN LOCATE sm÷l,12:P 

RINT"FUERA':GOTO 810 
70 IF jj=O THEN pc=pc+4 ELSE SOUND 
1,110,60,12,3,5 
700 C(O)-A(O):C(1)-A(I ):C(2)=A(2):C 
(3)-A(3) 
800 x==.m:GOSUB 3010 
810 IF E(1)=I THEN LOCATE I*I,12:P 
RINT'FUERA' :GOTO 850 
820 IF jj=O THEN pc=pc+4 ELSE SOUND 
i,i10,0,13,3,5 
80 O(O)-A(4):C(I=A(5):C(2)-A(6):C 
840 xsI:GOSU8 3010 
850 IF nj=l THEN 980 
860 IF E(2)-I THEN LOCATE 2+I012:P 
RINT"FUERA":GOT0 900 
870 IF jj=0 THEN pc-pc+# ELSE SOD 
1,110,60,12°305 
880 
C(3}=A(11) 
890 x=s2:GOSUB 3010 
900 IF nj=2 THEN 780 
910 IF E(3)=I THEN LOCATE 3÷I°12:P 
RINT'FUERA":GOTO 
20 IF jg=O THEN pc-pc+4 ELSE SOUND 
1,110,60012,3,5 
930 C(0)=A(12) :C(1)=A(13):C(2)=A(14 

):C(3)-A15) 
940 x-sS:GOSU8 3010 
950 
60 " APUESTAS 
970 
980 a$=INKEY t:$='": E(0)-1 THEN 
1210 
990 SOUND 7,100,20,15 
1000 LOCATE #1,16,6:PRINT #l,"Yo ap 
1010 FOR t=0 TO 3:FOR it=0 TO 3 
1020 IF t=tt THEN 100 
1030 IF INT(A(t)/12)<>INT(A(tt)/12) 
THEN 100 
1040 m=MIN(A(t), A(tt)) 
1050 IF A(t)=mi THEN A(t)--I ELSE A 
(tt)--i 
1060 NEXT:NET:pr-I 
1070 FOR tt-0 TO 3 
1080 ptt=INT(A(tt )/12):ntt=A(tt)-12 
*ptt 
1090 FOR t pc TO 47 
1100 pt=INT(A(t )/12):nt=A(t)-12*pt 
1110 IF ntt>nt AND ptt=pt AND A(t)< 
>-I THEN pr=pr+l 
1120 NEXT:NEXT:pr-pr/(4S-pc) 
1130 am1=ROUNO(pr*(m+p)/5,-1)/2 
1140 IF am1>p/20R(pr>O,9 AND m>p+1 
00) THEN aml INT(p/2) 
1150 IF ml>m OR aml m THEN aml m-1 
1160 IF aml=O THEN aml=1 
1170 am m+aml 
1180 IF mm>m THEN am=m 
1190 SOUND 7,70,10,15 
1208 LOCATE sm-I,2:PRINT am:CHR$(8) 
;"pts' 
1210 FOR t-I TO BOO:NEXT 
1220 IF E(1)=I THEN 1340 
1238 SOUND 7,100,20,15 
1240 LOCATE #1,5,6:INPUT #l,'Cual e 
s la apuesta del J-I 9 ' ,ajll 
1250 ajtI=INT(ABS(ajII)).IF ajll>jl 
-I THEN 1270 
1268 IF (ajll<p/2 OR j11=p/2> AND 
aj11>8 THEN 120 
1278 LOCATE #1,5,6:PRINT #IsSPC(34) 
:SOUND 7,5g,IO,15.,,5:GOTO 1248 
1280 ajl=ajl+ajll 
1290 IF jl>jl THEN j1=a)l-aj11:OO 
TO 1270 
I00 LOCTE #I,5,c,:F'RINT I,SFu 347 
1310 SOUND 7,30,!0,15 
1328 LOCATE sI-I,2::PRINT ajI;CHRiC 
8:"pts' 
1330 POP t=l TO 80:NEXT 
1340 IF r,j=l THEN 1570 
1:350 IF E(2) 1 THEN 1470 
1360 SOUqD 7,10020.!5 
1370 LOCATE #I,5,6:]NPUT #l,'Cua; e 
 I apijesta del J-2 ? ",aJ22 
1380 aj22=INT(ABS(j22)):IF a.j22>j2 
-I THEN 1400 
i90 IF (aj22<p/2 OR j22-p/2> AND 
aj220 THEN 1410 
1400 LOCATE #1,5,6:PRINT #1°SPC(34) 
:SOUreD 7,50.10,15,,,5:G070 1370 
1410 a2=aO2+j22 
1420 IF aj2)32 THEN aj2=aj2-aj22:GO 
TO 1400 
1430 LOCATE #1,5,6:PRINT #1,SPC(34) 
1440 SOUND 7°30,10,15 
1458 LOCATE s2-12:PRINT aj2CHR$( 
8)'ots' 
1460 FOR t=I TO 800:NEXT 
1470 IF r, 3=2 OR E(3)=I THEN 1570 
1480 SOUND 7,100,20,15 
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1498 LOCATE #1,5,6:INPUT #l,"Cua] e 
s }a apuesta del J-3 ? ",aj38 
1588 aj33=INT(ASS(aj33)):IF aj33>j3 
-I THEN 1528 
1518 IF (aJ33(p/2 OR .aj33-p/2) AND 
aJ33>8 THEN 1538 
1528 LOCATE #1,5,6:PRINT #I,SPC(84> 
:SOUND 7,58,18015,,,5:80T0 1498 
1538 aj3=aj3÷aj33 
1548 IF aj3>j3 THEN aj3-aj3-aj33:GO 
TO 1528 
1558 SOUND 7,38,18,15 
1568 LOCATE 3-12::PRINT aj3;CHR$( 
1578 LOCATE #1,5,6:PRINT #I,SPC(35) 
1588 FOR t-I TO 888:NEXT:pc=pc+4 
1598 IF jj=1 THEN JJ=8:GOT0 2178 
1688 ' 
1618 ' DESOARTE 
1628 " 
1638 FnR L=I TO 4:LOCATE sm-2,6+3t 
1648 PRINT USING '#";5-t:NEXT 
1658 IF E(8)=I THEN 1728 
1668 SOUND 7,58,28o15 
1678 LOCATE #I,I5,6:PRINT#Io'Mi des 
cap 
16S0 x=m:FOR t-8 TO 3 
1698 IF A(t)=-I OR A(t)-I2*INT(A(t) 
/12)(5+INT(2*pP) THEN 1718 
1788 NEXT:0T0 1728 
1710 GOSUB 318g:A(t)-A(pc):pc pc+l: 
GOT0 1788 
1728 IF E(1)=I THEN 1840 
1738 FOR t-i TO 888:NEXT:SOUND 7,50 
,28,15 
1748 LOCATE #1,9,6:PRINT#10"Descart 
 del 
1758 t$-INKEY$:t VAL(t$ 
78 IF 
-I THEN 181 
78 IF t(l OR t>4 THEN 175 
1758 t-t-l:IF A(t÷4}--1 THEN A(t+4) 
=Bt+a ELSE 180 
1798 C(4 A(t+4):GOSUB 88QS:GOTO 17 
1808 A(t+4)=-I:GOSUB 8188:GOT0 1758 

1818 FOR t=4 TO 7 
1828 IF A(t)=-i THEN A(t)-A(pc):pc- 
c+I:80T0 1828 
1830 NEXT 
1848 IF nJ=l THEN 2118 
185 IF E(2 I THEN 1980 
:6 0CATE #1,9.6:PPINT#105PC(24) 
1878 FOR t=l TO 888:NEXT:SOUND 7,58 
,28,15 
1888 LOCATE #1,9,6:PRINT#l,"Descat 
e de juoado  ?":x=s2 
1898 t$-INKEY:t=VAL(t$) 
1988 IF INKEY(18)<>-I OR INKEY(6)<> 
-I THEN 1958 
1910 IF t<] OR t>4 THEN 1898 
1928 t=t-i :I  A(t÷8)=-I THEN A(t+8) 
=8(t8) ELSE 1948 
1938 C(4)=A(t+8):GOSU8 3848:GOT0 18 

ni 

sl 

s2 

s3 

m 

il 
i2 
i3 
A 

C 
E 
Dr 
om 
oi7 7 
oi7 
oi22 
i33 
i3 
nf 

ppc 
npc 
Pq 
q 

Ndmero de iugodores. 
Localizaci6n en 
pantalla de las cartas 
de la mSquina. 
Localizaci6n en 
pantalla de las cartas 
del jugador 1. 
Localizaci6n en 
pantalla de las cartas 
del jugador 2. 
Localizaci6n en 
pantalla de las cartas 
del jugador 3. 
Dinero que hay en el 
plato. 
Dinero que tiene la 
mquina. 
Dinero del jugador 1. 
Dinero del jugador 2. 
Dinero del jugador 3. 
Matriz que contiene la 
baraja. 
Matriz que contiene la 
baraja y se mantiene 
igual durante una 
partida. 
Matriz que contiene las 
cartas en juego. 
Matriz que contiene 
iugadores eliminados. 
Primera carta de la 
baraia. 
Probabilidad de que la 
m5quina gane. 
Apuesta provisional de 
la mSquina. 
Apuesta de la 
mdquina. 
Apuesta provisional del 

jugador 1. 
Apuesta del jugador 1. 
Apuesta provisional del 
jugador 2. 
Apuesta del jugador 2. 
Apuesta provisional del 
jugador 3. 
Apuesta del jugador 3. 
N#mero de carta del 

jugador o de la 
mdquina. 
Palo de la carta que le 
toca a cada jugador. 
N#mero de la carta 
que le toca a cada 
jugador. 
Variable de dibujo de 
la carta con su palo. 
Variable de dibujar el 
ndmero de la carta. 

98 
1948 A(t+8)=-I:GOSU8 3188:GOT0 1890 
1958 FOR t=S TO II 
1968 IF A(t)-l THEN A(t) A(pc):pc= 
pc+I:OOT0 
1978 NEXT 
1988 IF nj 2 OR E(3)=I THEN 2118 
1998 LOCATE #I,906:PRINT#1,SPC(24) 
2808 FOR t=l TO 888:NEXT:SOUND 7,58 
,28.15 
2818 LOCATE #1,9,6:PRINT#1,'Descart 
e del augador 
2828 t$=INKEY$:t VAL(t$) 
2838 IF INKEY(18){>-I OR INKEY(6)<> 
-I THEN 2888 
2848 IF t<l OR t>4 THEN 2828 
2858 t-t-l:IF A(t÷12)=-I THEN A(t+1 
2)=8(t+12) ELSE 2878 
2868 C(4)-A(t+I2):GOSUB 3848:GOT0 2 
828 
2878 A(t+12) -I:GOSU8 3180:GOT0 282 
2888 FOR t=12 TO 15 
2098 IF A(t)=-i THEN A(t)-A(pc:pc- 
pc+t:GOT0 2898 
2188 NEXT 
2118 LOCATE #I,9,6:PRINT #I,SPC(24) 
2128 FOR t=9 TO 18 STEP 8:LOCATE 
-2,t:PRINT .... :NEXT 
2138 FOR t=l TO 1088:NEXT:jj=I:GOT0 
778 
214 ' 
2158 " RESULTADOS 
2168 ' 
2178 IF E(8)=I THEN 2348 
2188 x=sm:GOSLIB 3438 
2198 I¢ m>p THEN am-o 
2218 t-INT(A(t)/12):nt 
2228 IF nt)npc AND pt D¢,¢ THEN 2278 
2238 NEXT 
224 SOUND 7,68°48,15,404 
2258 LOCATE #I°9.6:PRNT#I,"La maqu 
zna piePde' ;am:"pts' 
2268 FOe t-I TO 1888:NEXT:p=p+am:m= 
m-am:GOTO 2388 
2278 SOUND 7,128,48,12,3,3 
2258 LOCATE #I,18,6:PRINT#1,'La maq 
uina gana';am;'pts' 
2298 FOR t-I TO 1888:NEXT:p=p-am:m- 
2388 IF m<27 THEN E(8)-1:m-8 
2318 GOSUB 3358:FOR t-1 TO lggS:NEX 
T:GOSUB 3268 
2328 pc-pc+l 
2338 LOCATE #1,9,6:PRINT #1,SPC(28) 
2348 IF E(1)-I THEN 2518 
2358 x=sl:GOSU8 3438 
2368 IF ajl>p THEN ajl=p 
2378 FOR t=4 TO 7 
2388 pt-lNT(A(t)/12):nt A(t)-12*pt 
2390 IF nt>noc AND pt ppc THEN 2448 
2488 NEXT 
2410 SOUND 7,68,4g,15,4,4 
2428 LOCATE #I,7,6:PRINT#I,'EI juga 
dot I pierde';ajl;'pts" 
2438 FOR t-I TO 1888:NEXT:p p+ajl:j 
l=jl-aj1:GOT0 2478 
2448 SOUND 7,128,48,12.3,3 
2458 LOCATE #I,8,6:PRINTI,"EI juga 
dot I gana";ajl:"pts' 
2468 FOR t=l TO 1888:NE×T:o-p-aj1:j ' 
l=Jl+a, jl 
2478 IF ji<27 THEN E(1)=I:jI-8 
2488 60SU8 3358:FOR t=l TO 1888:NEX 
T:GOSUB 3268 
2498 pc=pc+1 
2588 LOCATE #I,7,6:PRINT #1,SPC(38) 
2518 IF nj-1 THEN 2838 
2528 IF E(2)-I THEN 2690 
2538 x-2:GOSUB 8438 
2548 IF aj2p THEN aj2=p 
2558 FOR t-8 T0 It 
2568 pt=INT(A(t)/12):nt-A(t)-12*0t 
2578 IF nt>noc AND pt:ppc THEN 2628 
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2588 NEXT 
2598 SOUND 7,68,48,15,4,4 
2688 LOCATE fll,7,6:PRINT#I,"EI juoa 
doe 2 pierde':aj2;"pt' 
2618 FOR t=l TO 1888:NEXT:p=p+aa2:J 
2 a2-aj2:GOT0 2658 
2628 SOUND 7,128.48.12,3.3 
2638 LOCATE #I.8,6:PRINT#1,'EI jugs 
dot 2 gana";aj2;'ptv" 
2d48 FOR t=I TO 1888=NEXT:p=p-aj2:J 
2=j2+aj2 
2656 IF a2827 TNEN 
26¢,8 G03U8 8358:POR t i TO 1888:NEX 
T:GOSUB 3268 
2678 pc-pc+l 
2688 LOCATE #1,7,6:PRINT #I.SPC(32) 
26-8 IF nj=2 0R E(S) I THEN 2836 
2788 x sS:GOSU8 3438 
2718 I# .)3 THEF' 
272 FOR t-2 TO 15 
2788 
220 IF r,tnpc AND t=p( THEN 2786 
275 NEXT:SOUND 7.6.48,15.4.4 
2768 LOCATE #I.7.6:RRINT#I,'EI .ju@a 
@or S ierde'a33:"pts" 
2778 FOR t=l TO 1686=NEXT:p=p÷aj3:j 
2=jS-aj3:GOTO 2818 
2736 SOLND 7.12648.12.8,3 
2796 LOCATE #I,8,6:PRINT#I,"E] 
doe 3 gaa"ajS'ts' 
288 FOR t-I TO 1886:NEXT:p p-ajS:J 
3=jS+aj3 
2816 IF 3<27 THEN E(3)-I:jS= 
2828 G08UB 33501FOR t=l TO 
T:GOSU8 3268 
2838 Jj=8:0R t-8 TO 3 
286 IF t>nj THEN 2868 
2856 IF E(t)-0 THEN njj=njO+l 
280 NEXT:IF na<2 THEN 3568 
2878 WINDOW 82.sm,38.8.1 :PAPER 
8:CLS 82 
2886 NIND0tO #2.sm,38,1,3:PAER #2,8 
:CLS #2 
2898 LOCATE #1.7,6:PRINT. #I,SPC(32) 
2988 LOCATE 18,16:PRINT'E=per a qu 
2910 FOR t=1 TO i6 
226 SOUND 
8*RND) 
2930 j=INT(48*RND):IF i=j THEN 2936 
2958 NEXT:FOR t=8 TO 47:A(t)=B(t):N 

EXT 
2968 
=8 
2978 
0 778 
2988 
3888 
3818 
3620 
336 
3846 
3858 
3868 
3878 
6); 

am=6:a)l=6:aj2=0:&j3 8:pc=6:jj 
LOCATE 18.16:PRINT 8PC(2g':GOT 
• SUSRUTINAS 
0R t-8 TO 3 
pq=INT(C(t)/12):q=C(t)-12*pq 
GOSU8 3858:NEXTtRETURN 
pq=INT(C(4)/t2):q=C(4)-I2*pq 
IF Jj=8 THEN SOUND 7,115.15.t2 
PAPER I:LOCATE x,le-3*t=PEN 3 
PRINT CHR$(251)tSPC(5;CHR$(25 

888 LOCATE x,18-8*t:PRINT CHR$(251 
)::PEN 2 
8696 IF q=ll THEN PRINT"A';:GOT0 31 
3188 I q=t6 THEN PRINT"K' :GOTO 31 
48 
• I18 IF q-9 THEN eRIHT'Q"I:GOTO 314 
3128 IF , 8 THEN PRINT"J";:GOT0 314 
8136 PRINT USING '#"2+at 
3148 IF pq=l OR pq-2 TNEN PEN 3 ELS 
E PEN 2 
158 PRINT CHR$226+c,}:F'EI :PRIN 
T SPC(S):CHR$(25 
3168 LOCATE xt7-3t:P PINT CHR$(252 
);STRING(5.248);CHR$(253) 
3178 PAPER 8:RETURN 
3188 SOUND 7,58,28,15,2,2 
318 WINDOL#2,x,x÷6IT-3t.19-3*t 
3288 LOCATE #2.2,2:PAPER #2.1:PRINT. 
#2,SPC(2) 
32t0 PRINT #2,CHR$(22)CHR$(I): 
3228 PEN #2,3:LOCATE #2,I,I:#RINT # 
2,CHR$(222)STRING$(5,218)iCHR$(223 
3236 LOCATE #2,1,2PRINT #2CHR(2| 
7);STRING$(5.267);CHR$(219): 
3246 LOCATE #2,I,3:PRINT 82.CHR$(21 
7);STRING$(5287);CHR$(219); 
3256 PRINT #2.CHR$(22:CHR$(6)I =RET 
URN 
3268 IF p>9 THEN RETURN 
3278 SOUND 7,25,18,15,,,I 
3288 IF E(8)-6 THEN p=p+25:m=m-25 
3296 IF E(1)-0 THEN p=p+25:jl ji-25 

3388 IF nj-I THEN 3348 
3319 IF E(2)=8 THEN p-p+25 2=j2-25 
3328 IF nj-2 THEN 3340 
3338 IF E(3)=8 THEN p=p+25:j3 38-25 
3346 GOSU8 3356:RETURN 
335 PEN #I.I:LOCATE #1.21,4:PRINT 
#I,USING 
3368 LOCATE #I.sm+2,2:PRINT #I'JSIN 
G '####';m 
3378 LOCATE #I,sI+2.2:PRINT #IoUSIN 
G '####' I 
3888 IF nj-I THEN RETURN 
3398 LOCATE #I,$2÷202:PRINT #I.USIN 
G "####":.2 
3460 IF nj-2 THEN RETURN 
3418 LOCATE #t,s3+2.2:PRINT #I,USIN 
G "####"j9 
3426 RETURN 
343 ooc-]NT(A(Pc/12:r'c=A(P c)-12 
344@ PAPER I:LOCATE x.lPElq 3 
3458 PRINT CHR$(251):SPC(5):CHR$(25 
3468 LOCATE ×,2:PRINT CHR$251):SPC 
(3);:PEN 2 
3476 IF npc=ll THEN PRINT'A';:GOT0 
3528 
3480 IF npc=16 THEN RRINT'K";:GOT0 
3528 
349 IF nc-9 THEN PRINT"Q"::GOT0 3 
528 
3588 IF npc-8 THEN PRINT"J';:GOT0 3 
520 
3518 PRINT USING "#' 2+npc 
3528 IF opc=l OF: ppc=2 THEN PEN 3 E 
LSE PEN 2 
3536 PRINT CHR$(226+ppc):PEN 3:PRI 
NT CHR$(258) 
354 LOCATE x03:PRINT CHR$(254)STR 
ING$(5.249):CHR$(255) 
3556 PAPER 8:RETURN 
3566 LOCATE #1,2,6:PRINT 81,SPC(36) 
3578 FOR t=8 TO 3:1F E(t)=8 THEN 85 
88 ELSE NEXT 
3588 a$-'el JUGADOR '÷STR$t:IF 
8 THEN $=']a MOUINA" 
3596 SOUND 7.166.26.15.,3:SOUND 
828.15 
3688 LOCATE #1013.6:PRINT #l,"Gano 
3618 FOR t I TO 26$6:NE×T:SOUND 7,1 
50.20.15, ,2 
328 LOCATE #t,i6:PRINT #1.'P.r.a e 
mpzar' ot¢a partlda pu|sa [ENTER].' 
3636 IF INKEY(18)=-I THEN 363 ELSE 
SOUND 7,36,25,15:60T0 230 
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lVerdad? 

C! Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 274 53 80 

(Metro O'Donnell o Goya) 
Aparcamiento gratuito en Felipe II 

Ofertas en software: 2 programas al precio de 1 y adem6s regalo fin de curso una calculadora completamente gratis, iiAsombroso!! 

BAT MAN 2.`1OO ptas. KUNG-FU MASTER 2.`100 ptas. 
ROCK'N LUCHA 2.,1OO ptas. SABOTEUR 2.`100 ptas. 
YIER AR KUNG FU 2.`100 plas. PING PONG 2.`100 ptas. 
THE WAY OF THE TIGER 2.300 ptas. MILLION II 0000 ptas. 
WEST BANK 2.100 ptas. OLETORO 2.`100 ptas. 
CAMELOT WARRIORS 2.,1OO ptas. TURBO ESPRIT 2.100 plas. 
RAMBO 2.300 ptas. SABRE WULF !.650 ptas. 
WORLD CUP (DISCO) 3.`100 ptas. BATALLA DE LOS PLANETAS 2.100 ptas. 
MILLION II (DISCO) 3.`100 ptas. SABOTEUR-COMBAT LINX DISCO 3.300 ptas. 
RAMBO-MATCH DAY (DISCO) `1.300 ptas. 

SOFTWARE DE REGALO (OFERTA 2×1) 
DECATHLON BEACH HEAD SOUTHERN BELLE 
DRAGONTORC 

LAPIZ OPTICO SINTETIZADOR DE VOZ EN 
3.295 PTAS. CASTELLANO 
7.650 PTAS. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTAS. AMPLIAClON DE MEMORIA ANTA 64 K.3 
12.500 PTAS. 

i IMPRESORAS 
20% DE DESCUENTO SOBRE P.V.P. 
I 
TAPA DE METACRILATO 464  110 795 
CABLE CENTRONICS 3.175 | I CABLE ADAPTADOR 2JOYSTICK 2.390 
CABLE SEGUNDA UNIDAD D. 1.790  I CABLE SEPARADORES 464 1.3-90 
CABLE SEPARADORES 6128 2.900 
9.265 | I CABLE RS232 
INTERFACE RS2'15C  1.975  I CABLE SEPARADOR3,, 8256 
CINTA VIRGEN 69 |DISKEFIES 2.500 
_ 990 
I 
PREClOS EXCEPCIONALES PARA TU AMSTRAD ' 

CPC-464, CPC-6128, PCW-8256 

IiLLEGARON LAS REBAJAS DE VERANO A MICRO 

QUICK SHOT I OFERTAS EN JOYSTICKS 1.395 
QUICK SHOT II 1.695 
QUICK SHOT V 1.695 

PEDIDOS CONTRA REEMBOL$O SIN NINGUN GASTO DE ENVIO TEL. (91) 274 53 80 
0 ESCRIBIENDO A: MICRO-1. C! DUQUE DE SESTO, 50. 28009 MADRID. 

Tiendas y distribuidores grcndes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 742 20 19 6 742 79 68 



Bajo el original tltulo de LA LUPA os presentamos un programa que, 
como su propio nombre indica, aumenta de tamao los distintos 
coracteres que introduzc6is. 

unque no se especifi- 
queen el texto del prograrna, el nOmero rn6- 
de caracteres aceptados es de cinco. 
El desglose de las lineas es el siguiente: 
10-40 Los cl6sicos REMs que nos indican 
el titulo. Sirven para recordarnos de qu6 va 
a tratar el programa. 
50 REM con el que comienza la entrada de 
los datos y los caracteres. 
60 Creaci6n de la ventana #1, con WIN- 
DOW, dirnensionada y posicionada segOn los 
par6metros indicados., 
70 Inicio de un bucle WHILE... WEND cu- 
yo cuerpo se va a estar repitiendo continua- 
mente. 
80 Se lirnpia la pantalla. 
90 En el canal #1 se pregunta por la an- 
chura de los caracteres, asignando el valor te- 
deado a la variable anchura. A continua- 
ci6n se limpia la ventana #1 definida anterior- 
mente. 
1 O0 Del rnismo modo se nos pide la altura 
de los misrnos. Contestando a la instrucci6n IN- 
PUT de esta linea determinamos el valor que 

va a contener altura. Adem6s dejamos en 
blanco la ventana #1 mediante CLS #1. 
110 Por Oltimo nos dice que introduzcamos 
la palabra o los caracteres cuyo tamao que- 
rernos aumentar. Introducirnos en esta cade- 
na literal la variable palabra$. 
120 Bifurcaci6n condicional. Especificamos 
que si la Iongitud de la variable literal 
(IEN(pa/abra$)) es mayor que 5, la ejecuci6n 
del prograrna volver a la linea 110. 
130 REM que nos informa que comienza 
la parte del programa cuya misi6n es sacar en 
la pantalla la ampliaci6n de la palabra teclea- 
da. 
140 Se escribe en la ventana #1 el car6c- 
ter introducido en la linea 110. Es la mues- 
tra a copiar. 
150 Bucle FOR... NEXT de variable pO 
y que rota desde 0 hasta la Iongitud de1 ca- 
r6cter menos 1. Se ernplea para posicionar ca- 
da una de 1as letras. 
160 Un nuevo ciclo controlado por pl . 
Nos sirve para recorrer en horizontal cada 
uno de los pixels que forrnan una letra o ca- 
r6cter. 
170 Otro bucle igual que el anterior pero 
con p2 como variable de control. En esta 
ocasi6n los recorre en vertical. 

180 Con el cornando TEST se traslada el 
cursor gr6fico hasta cada una de las distinlas 
coordenadas x (pl +p0"16) e y (p2) es- 
pecificadas mediante los valores que van to- 
mando las variables de control en los bucles 
anteriores. 
190 Si tinta es distinta de O, o sea, si 
el pixel analizado tiene un color distinto del 
que tenernos como fondo, saltamos a la subru- 
tina que se va a encargar de hacer el efecto 
de lupa: AMPLIARLOS. 
200 Se cierran los distintos bucles FOR... 
NEXT. 
210 Borra Io escrito en la ventana #1, que 
es precisarnente el contenido de la variable de 
la cadena palabra$. 
220 Linea que nos indica la manera de con- 
tinuar. 
230 El programa se detiene. No continOa 
hasta que pulsemos una tecla nuevamente. 
240 En esta linea terrnina el bucle WHILE... 
WEND que comenzaba en la 70. 
250 Comentario inform6tico sobre la ruti- 
na posterior que va a intentar ampliar el ta- 
rnao de los pixels de la muestra que estn 
ilurninados. 
260 Bucle posterior de los dos que hay ani- 
dados para expandir cada uno de los pixels 
coloreados. Este primero le emplearnos para 
ampliarlo horizontalmente. Para ello la varia- 
ble de control i va desde 0 hasta el conte- 
nido de anchura. 
270 Aqui cornienza el bucle interior. Con 
61 vamos a poder arnpliar la altura de los ca- 
racteres de la palabra elegida. 
280 Dibujamos un punto en la pantalla. Sus 
coordenadas grficas quedarn deterrninadas 
por la evaluaci6n de las expresiones matern6- 
ticas que hay en los pargntesis. 
290-300 Terminaci6n de arnbos bucles. 
310 Instrucci6n que nos devuelve a la li- 
nea del programa principal siguiente a la que 
hacia la Ilarnada a la subrutina. 

1 



STA PULSANDO 
UNA TECLA? 

La 6ltima vez que nos reunimos nos rue 
presentada una nueva funci6n: INKEY. 
Utiliz6ndola podlamos mover un objeto a Io largo 
y ancho de la pantalla, o por Io menos esa fue la 
tarea que les dejamos. 

ero esta semana aadi- 
remos m6s dimensiones y utilidades a todas las 
funciones que investigan si hemos pulsado o 
no una tecla. Adem6s de desplazar o pad:ear 
nuestro m6vil pueden servirnos para muchas 
m6s cosas. Procuraremos ver todas elias. 
Qu tal los (deberes))? Estamos seguros 
que por Io menos habr6 intentado conseguir 
aplicar correctamente la funci6n INKEY para 
Iograr resolver el ((problema)) propuesto. 
Recordamos por encima qu6 es Io que hace 
esta funci6n? 
INKEY simplemente investiga si se ha pub 
sado o no una tecla en particular. Cada una 
de elias tiene un nOmero asociado que la dis- 
tingue de las dem6s: es el que vamos a utili- 
zar para detectar si alguna en particular, la 
barra del espacio por ejemplo, est6 pulsada. 
Queremos saber si la que est6 presionada 
es el espacio. Bueno, pues aplicamos esta fun- 
ci6n al n6mero 47 que es el asignado a dicha 
tecla. Que nos devuelve un valor diferente de 
-1, la conclusi6n que podemos sacar es que 
si tenemos nuestro dedo apretando la tecla. 
Pot tanto, en nuestro programa tendremos 
que colocar una instrucci6n semejante a: 
IF INKEY(47)< ÷-1 THEN... 
Si en lugar de la barra espaciadora la tecla 
a investigar es la (a)) Io primero que tendre- 
mosque hacer es averiguar el ngmero que tie- 
ne asignado. Para ello Io mejor es echar ma- 
no del manual que nos entregaron con nues- 
tro Amstrad, claro, y seguro que alli existe 
una labia que nos responder a todas nues- 
tras preguntas. 
30 /coo AMSTRAD 

En el caso que nos ocupa veremos que la 
((a)) tiene asociado el n0mero 69. Entonces 
bastar con sustituir la l/nea anterior por: 
IF INKEY(69)< +-1 THEN 
Y asi para cualquier tecla. Pero, que ocu- 
rre si en lugar de la a,) queremos saber si la 
que se ha pulsado es la (A))? Si el an61isis Io 
realizamos como ((letra)), la diferencia es 
bien sencilla: una es may0scula y la olra es mi- 
n0scula. La funci6n INKEYS Io tendr claro. 
Las instrucciones necesarias serian: 
IF INKEYS=(A)) THEN... 
o 
IF INKEYS=a)) THEN... 
Pero, qu6 pasa con INKEY? .No nos ser- 
vir6 para conseguir los mismosfines? 
No se preocupe, como siempre nuestro or- 
denador tiene la soluci6n. Para verla m6s gr6- 
ficamente Io remitimos a una variante del Pro- 
grama 5 de nuestro anterior articulo. La Oni- 
ca diferencia es la tecla elegida y el mensaje 
que nos aparece en la pantalla. 

Programa uno 

Con 61 conseguimos determinar si hemos pul- 
sado la tecla a sola o acompaada de la de 
las may0sculas, la tecla CONTROL, o si tene- 
mos las tres a la vez. 
La diferencia existente va a residir en el va- 
lor que nos va a devolCer la funci6n INKEY 
cuando estemos en una u otra situaci6n. 
Cuando no presionemos ninguna tecla, IN- 
KEY (69) nos va a estar dando como resulta- 
do el valor -1. Ya Io habiamos comentado. 
Por tanto si ejecutamos el programa es eviden- 
te que, como almacenamos este valor gene- 
rado en la variable valar), no se cumpli- 
r6n ninguna de las condiciones que hemos co- 
Iocado en las Iineas 60 6 90 y continuar6 has- 
ta la 100 que set6 un sallo atr6s -a la li- 
nea 30- para repetir de nuevo el bucle. 



Cuando terminor6 el programa? Pues en 
el momenta que se cumplo una de dichas con- 
diciones. Pruebe pulsar solamente la tecla 
En la pantalla nos va a salir el valor genera- 
do par la funci6n INKEY(69) y las conclusio- 
nes que el ordenador saca de ella. 
Resulta que el valor generado, y almacena- 
do en la variable valor es cero. Se cum- 
plir6 entonces la condici6n de la linea 60 y el 
mensaje aparecido nos ratificara nuestra ac- 
ci6n. Ademas el programa termina debido a 
la instrucci6n END que hemos colocodo al fi- 
nal de la linea. 

4n valo=NVY ( 
5 PR  NT" VAI. fl NFRADO: " va I  
a  IF valnr =n THEN pRINT"HAS PUI SAD 
0 SOl AMFNT I A TLA A":FND 
7n F valo=? THFN PRINT"HAS PUI S 
  A TI A A Y L P MAYtlSULAS': 
 F valnr=l?R THFN PRINTHAS PUI.S 
ADO L TLA A Y [A  CONTROl A IA 
VF 7 ": F ND 
9n IF vaUnt=f6  THFH PRINT"HAS PULS 
ADO I AS TRFS TFLAS A LA VFT":N9 
1 DTO n 

Ejecutemos de nuevo el programa pero aho- 
ra variemos las condiciones. Pulsemos, par 
eiemplo, las teclas ¢ONI'ROL y <<a a la vez. 
Ahora el Amstrod has comunica que el va- 
lor generado es 128 y, par tanto, se cumplir6 
la condici6n de la linea 80. 
Continuemos investigando qu pasa al pul- 
sar la tecla de la <a junto con la de $1"III:T 
(o mayOsculas) o al presionar las tres a la vez. 
En la pantalla nos aparece Io que genera IN- 
KEY (69)junto con un mensaje explicativo. 
Coincide con Io que usted dedujo al hacer dis- 
tintas pruebas con el anterior programa 4. Es- 
peramos que asi haya sido. 
Pero ahora vayamos con la tarea pendien- 
te. Se trata de hacer que nuestro Don Sonrisi- 
tas (todavia no habiamos hablado hay de gl) 
se desplace o pasee, coma guse, par la pan- 
talla empleando para ella las teclas de los cur- 
sores. Nos parece que son las que nos mues- 
tran ms grficamente la direcci6n y el senti- 
do hacia donde se va a producir el movimien- 
to. 
Cojamos el manual. ,Qu n0mero tienen 
asignados dichas teclas? No encontrar6 nin- 
guna dificultad en ver que son los siguientes: 
Izuierda: n0mero de tecla 8 
Derecho: n0mero de tecla 1 
Arriba: nmero de tecla 0 
Abajo: nmera e ted  
Asi que nuestro progroma ha de tener unas 
instrucciones que nos detecten si alguna de 
elias est pulsada y entonces variar la situa- 
ci6n del obieto que queremos mover. Par 
ejemplo, si se cumple la condici6n: 
INKEY(0) < + -1 
el ordenador interpreta, y con acierto, que he- 
mos presionado la tecla de los cursores que 
tiene la flecha hacia arriba y que, par tanto, 

tiene que ejecutar las instrucciones que des- 
platen a Don Sonrisitas en esa direcci6n. 
Sin embargo, sila que se cumple es: 

INKEY (8) < + -1 
la conclusi6n que saca en esta ocasi6n es que 
el movimiento se har6 hacia la izquierda y par 
tanto habr6 que variar los coordenadas del 
punto donde vamos a colocar a nuestro ami- 
go del modo conveniente para que osi ocu- 
rra. 
Y, qu6 pasar6 si Io que se verifico es: 
INKEY(2)  + -1. 

Saque usted mismo sus conclusiones, segu- 
ro que no se equivocar6. 
En esta ocasi6n no limitaremos el radio de 
acci6n de lugar donde se va a producir el mo- 
vimiento. Cuando el objelo Ilegue a los li- 
mites de la pantalla horemos que aparezca de 
nuevo pero en el lugar opuesto al que tenia. 
Es decir, Ilega al borde inferior yen vez de 
salirse y desaparecer, volvemos a tenerle con 
nosotros pero ahora en el borde superior. 
Comprendido? 
Y hemos Ilegado al punto clave de este asun- 
to. C6mo hacerlo? Seguramente que el pro- 
grama 2 le resultar de gran ayuda. 

I Programa dos I 

Para su realizaci6n hemos utilizado, coma 
debia ser casi siempre, un diseffo modular con- 
sistente en dividirlo en pequefias rutinas o sub- 
m6dulos que realizan una acci6n muy concreta 
y que son Ilamadas desde un programa prin- 
cipal que controla el momenta oportuno pa- 
ra ejecutar cada una de elias. Dicho progra- 
ma principal es el que est formado par las 
lineas comprendidas entre la 20 ¥ la 60. 
Es un simple bucle sin fin, ya que al final - 
linea 60-le mandamos con un salto i- 
odiioal -o GOTO- de nuevo a la 
30. Su misi6n es ejecutar primero la rutina de 
inicializaci6n, que comienza en linea 260, y 
despu6s repetir ciclicamente el resto de las mis- 
mos. 
Los que m6s nos intereson son, la que ge- 
nera los nuevas coordenadas, par ver trabo- 
jando a la funci6n INKE¥, y la que trata la 
nueva posici6n de Do $orisita cuando 
Ilega a los bordes de la pantalla. Vayamos a 
su an61isis. 



La rutina que nos calcula las nuevas coor- 
denadas es la que comienza en la linea 70 y 
llega hasta el RETURN de la 120. Su estructu- 
ra es la misma queya conocemos pero ahora 
en lugar de INKEY$ hemos empleado la nue- 
va INKEY. 
Las condiciones que han de cumplirse para 
cambiar la posici6n del m6vil es que al menos 
una de las teclas haya sido pulsada. 0 sea, 
que la funci6n INKE¥ aplicada a los n6me- 
ros asociados alas teclas elegidas nos devuel- 
va un valor distinto de -1 por Io menos para 
alguno de ellos. 
En el momento que esto ocurra, las lineas 
80 a 110 se encargar6n de hacer variar la 
coordenada correspondiente, y por tanto la 
nueva posici6n del objeto. Est6 claro? 
Pasemos ahora a ver qu pasa cuando nues- 
tro viejo amigo Ilega a los bordes de la pan- 
!alia. Si da una ojeada a la rutina de las lineas 
130 a 180 comprender6 Io que le queremos 
decir. 

I n FM PROAMA 
4 n OSH 7 
5 n OSLJ I n 
?A REM NIJEVAS COROENADAS 
A IF INKEY(|)-I THEN 
gn fF INKE¥(RI-I THFN 
1 )' TF I P,'Fy(n)/%~ I THEN y=y-1 
11 IF 1NKEY(2)(-! THFN y-y+t 
1?n RETURN 
ln REM FXTRENOS 
14n IF x=n THFN 
15 IF =4! THFN 
An IF y=A THFN 
!7 IF y=26 THFN 
!qn RFTURN 
lqn RFH IHP:FSTON y RORRADO 
?nn LOEATF 
?1A PRINT CHR$(24) 
?? FOR $=I TO 5n:NFXT  
?] ICATE 
74 n PRINT " ', 
? RFTURN 
79 CLR 
nn RTIIRN 

Vemos que cuando el valor de una, o de las 
dos coordenadas se salen de los m6rgenes ad- 
mit!dos, el Ares!tad mediante la ejecuci6n 
de esta pequefia subrutina se encarga de 
dar a dicha coordenada el valor que le sitga 
en la parte opuesta de la pantalla. 
Pongamos un ejemplo. El nuevo valor ob- 
ten!do para la coordenada y> es cero. Esto 
quiere decir que nos hemos salido del margen 
superior de la pantalla y por tanto no es vli- 
do. 
Y qu6 es Io q.ue hacemos? Mire despacio 
la subrutina. La linea 160 nos dice que 
el valor de la variable y es igual a cero 
I'H EN almacenamos en dicha variable un 
25. 
Pero, en qu6 lugar de la pan!alia nos co- 
Iocamos cuando la coordenada y> de la pan- 
talla de texto vale 25? La respuesta es bien sen- 
cilia: en la 01tima Iinea. O sea, justamente en 
el lado opuesto al sitio donde nos encontr- 
bamos. Es Io que pretendiamos, no? 
32 

Los lineas 110, 150 y 170 hacen algo seme- 
jante pero para los otros bordes. Con ello Don 
Sonrisilas no encontrar6 obst6culos. 
El resto del programa es, como ya hemos 
apuntado, semejante a Io ya visto. Por eso 
6chele una ojeada e intente aclarar con 41 al- 
gOn concepto que no le haya quedado sufi- 
cientemente claro. Como siempre le propone- 
mosque haga cuantas pr6cticas se le ocurran. 
No considere un fracaso que algo no funcio- 
ne como usted desea. Analicelo, haga los cam- 
bios oportunos y continge probando nuevas 
t6cnicas e instrucciones. Es la mejor manera 
de aprender. 
Bueno, ahora nos surge una pregunta,es- 
tas funciones que analizan si se ha pulsado o 
no una tecla s61o nos van a servir para hacer 
programas de movimiento? 
Es evidente que no va a ser asi. Son una he- 
rramienta muy poderosa a la que vamos a 
buscar mOlt!pies aplicaciones. 
Se imagina que una de sus aplicaciones 
pueda ser detener la ejecuci6n de un progra- 
ma hasta que pulsemos una tecla? Pues asi es. 
El programa 3 es una mueslra de Io que le es- 
tamos diciendo. 

Progroma tre$ 

Consiste en un bucle WHILE... WEND sim- 
plemente. El On!co misterio est en la condi- 
ci6n que le hemos puesto para que se ejecute 
0 1'10. 
Con: 
WHILE INKEYS="" 
le estamos diciendo al ordenador que ejecute 
el cuerpo del bucle contenido entre WHILE y 
WEND mientras la funci6n INKEYS nos est6 
devolviendo una cadena que no contenga, nin- 
g0n car6cter, es dec!r, una cadena 

d i dar6 co- 
mo resultado .... cuando no pulsemos ningu- 

na tecla. En el momento que Io hagamos, el 
valor generado ser6 el car@ter de la tecla pul- 
sada. 
Por eso nuestro bucle estar6 dando vueltas 
hasta que se nos ocurra presionar cualquier 
tecla. Con ello INKEYS crear6 una cadena dis- 
tinta de la va¢im y ya no se cumplir la 
condici6n de entrada al bucle por Io que Io 
abandonaremos y continuaremos con el pro- 
grama. 
Dese cuenta de una cosa. En real!dad la eje- 

n REH PROGRAMA I I I 
2n r.l s 
-,n PRINT"I!. PROGRAMA SE DFTFNDRA EN 
tiN ltk F" 
4n WHTI  
50 PRTNT "PULS UOLITFR TFLA" 
6 WEND 
7n PRINT 
8 PRINT "YA HA PULSADO UNA TCLA. 

cuaon no se detiene sino que est6 girando den- 
tro del bucle, gastando tiempo, mientras se 
cumpla la condici6n de entrada, queen este 
caso es no haber pulsado ninguna tecla. 
Tambi6n podriamos aplicar la funci6n IN- 
KEY para realizar esta misi6n, pero ahora ten- 
dr/amos que hacerlo con una tecla en concre- 
to. Es Io mejor. 
La forma de hacerlo es algo parecido a co- 
mo Io hace el programa 4. Si Io teclea y eje- 
cuta ver6 c6mo funciona. 

Programa cuatro . 

En esencia funciona de una forma pareci- 
da a la del anterior, pero hay en real!dad una 
gran diferencia: ahora s61o saldremos del bu- 
cle al pulsar la barra espaciadora. Con cual- 
quier otra tecla no ocurrir nada, solamente 
conseguiremos acabar la ejecuci6n presionan- 
do la elegida. De ello se encarga la Iinea 40. 
(Recuerde que 47 es el nOmero de tecla del 
espacio, no el 55 como por error dijimos en 
el articulo anterior. Perd6n por nuestro fallo.) 



Sigamos con nuestros experimentos. Imagi- 
nemos que necesitamos detener de esta Olti- 

I n RFM PROGRIMA IV 
?n CL S 
" PRINT"EL PRQGRAI't SF DETFNDRA EN 
kin DUL E" 
5n PRINT "PULS SPACIO" 
0 WEND 
7n PRINT 
 PRNT "YA HA Pill SA I A ARRA FS 
PAADOA.  

ma forma el programa pero dos veces conse- 
cutivas yen un espacio de tiempo corto. 
Colocamos dos bucles WHILE... WEND con 
la misma condici6n que nos investiga si est6 
pulsada o no la barra del espacio para salir 
de ellos. Se estaria ejecutando mientras: 

INKEY(47)---1 

Parece que no habr6 pegas. 
Bueno. Escriba el programa 5 y ejecOtdo a 
ver si ocurre asi. 

Por eso, cuando Ilega el segundo bucle, la 
condici6n no se cumple y no entramos en 41. 
La soluci6n ser6 retrasar la ejecuci6n del pro- 
grama justo en el momento que est6 entre am- 
Y,qu4 meior forma de hacerlo que median- 
te ubucle retardador, uno de esos que sola- 
mente gastan tiempo.. Afiada al programa la 
linea: 
60 FOR I=0 TO 500: NEXT i 
y ver6 c6mo hemos solucionado el problema. 
Simplemente hemos retrasado la ejecuci6n del 
segundo bude. Es un m4todo un poco rudi- 
mentario pero funciona. 

Programa cinco 

Y resulta que se detiene en el primer bucle, 
pulsamos por primera vez el <<espa¢io> e 
inesperadamente nos aparece un mensaje in- 
dic6ndonos que el programa ha terminado y 
el REApY que nos Io confirma. |Arrea!. 
Aunque a priori no tendriamos problemas, 
parece queen la pr6ctica si que los ha habi- 
do ya que el programa no funciona tal como 
nosotros pensamos. 
A qu6 extrafia circunstancia ser6 debido es- 
te comportamiento.. Muy sencillo: el ordena- 
dor es mucho m6s r6pido que nosotros y ha- 
ce una exploraci6n del teclado mientras toda- 
via estamos pulsando una tecla. 

El dominio 
del Amstrad 
PCW8256/8512 

Por el momento les dejamos. Intente pensar 
las m61tiples aplicaciones que pueden tener es- 
tas funciones tanto para dar un movimiento 
m6s o menos perfecto a nuestro amigo Don 
$onrisJtas, como para cualquier otra cosa. 
Seguro que su imaginaci6n puede descubrir 
aplicaciones insospechadas que le Ilenar6n de 
asombro. ((Hasta rags ver. 

Porque 
creemos en la 

II 

Inform  tica... 
Solo vendemos 
Inform  tica. 

TODO EN: 
• Ordenadores Personales. 
• Lcnguajes de Prograrnacidn. 
• T4cnicas de Programaci6n. 
• Telemfltica. 
• Ensehanza asistida pot Ordcnador. 

I)WI,I.(_'(. 10 `4 . 
cIL D.\D 
(. ODW(_.+( 1 p( 1>, 1 
pR() \ i( L.\ • 

Carre[era de Canillas, 144. 28043 MADRID 
Telfono: 200 97 46- 47 



CREADOR DE VENTANA$ 

Miguel Angel Alonso 

I fin de este pro- 
grama es la creaci6n de hasta siete 
ventanas mediante el comando 
WINDOW (la ventana 0 est5 reser- 
vada para enviar los rnensajes del 
programa) sin necesidad de introdu- 
cir las coordenadas que exige sino, 
simplemente colocando el cursor en 
el extremo superior derecho y en el 
inferior izquierdo y pulsar la recla 
ENTER una vez fijada cada posici6n. 
Realizadas las operaciones anterio- 
res se mostrarc en pantalla la ven- 
tana creada y se preguntar5 a con- 
tinuaci6n si desea crear una nueva. 
El programa se puede usar en los 
tres modos de pantalla para ello se 
solicita al principio del programa. 
Para la comprensi6n de algunas 
partes del programa se recomienda 
la lectura de los programas GEN- 
PANT y BASCOM puesto que el mo- 
vimiento del cursor se realiza de si- 
milar forma. 
En la linea 10 se solicita el modo 
de pantalla, almacen6ndose en la 
variable t dicho valor. 
En la linea 20 se ilia el modo y se 
limpia la pantalla ponindose a 1 el 
valor de i (usada para determinar 

qu ndmero de pantallas es) bifur- 
cSndose posteriormente a la linea 
120. 
En la Iinea 120 se hacen dos llama- 
das al firfware para habilitar y ha- 
cer visible el cursor, dimesion6ndo- 
sea continuaci6n la variable que 
contendr6 las posiciones del cursor. 
En la linea 130 se ponen a 1 las va- 
riables de la ilia y la columna. En la 
140 se entra en un bucle para posi- 
cionar el cursor mientras no se pulse 
la tecla ENTER, bucle que termina en 
la linea 170. 
En la linea 180 se incrementa el va- 
lor de la variable z, la cual se usa pa- 
ra determinar si es el primero o el se- 
gundo valor de la definici6n de la 
ventana. Si se trata del primer valor 
se almacenan la ilia y la columna en 
las variables ilia y columna volvin- 

dose a la linea 130 y en caso contra- 
rio a la linea 190. 
En la linea 190 se borra en primer 
lugar la 01tima posici6n del cursor y 
a continuaci6n mediante WINDOW 
se crea la pantalla definida asi como 
el color del papel. En el caso de que 
el valor de i sea mayor que siete se 
termina el programa, pues es el nO- 
mero m6ximo de ventanas que se 
pueden crear yen caso contrario se 
dirige a la linea 200. 
En la linea 200 se pregunta si se 
desea crear otra ventana y en caso 
de responder n/N se termina el pro- 
grama y en el caso contrario s/S se 
incrementa el valor de i y se retorna 
a la Iinea 130. La linea 230 implica 
queen el caso de que la respuesta 
no sea ninguna de las anteriores se 
solicita de nuevo la respuesta. 

10 INPUT"MODO DE PANTALLA: "modo:I 
F modo<>O AND modo<>l AND modo<>2 T 
HEN I0 ELSE IF modo-O THEN t 
0.5 ELSE t-modo 
20 MODE modo:i=l:SOTO 120 
30 IF te$ CHR$(13) THEN RETURN 
40 le$(fi,co)=te$:PRINT te$;:co=co+ 
1 
50 IF co t40 THEN GOSUB 70 
60 RETURN 
70 co I:IF fi<24 THEN 
80 RETURN 
90 i=i+(ASC(te$)=240 AND 
SC(te$) 241 AND fi<24) 
100 co co+(ASC(te$}=242 AND co>I)-( 
ASC(te$)=23 AND co<(t40)+l) 
110 RETURN 
120 CALL &BB7B:CALL &BBSI:DIM Ie$(2 
4,(t$40}) 
130 fl 1:co I 

140 WHILE te$<>CHR$(13) 
150 LOCATE coi:te$="":WHILE 
": te$-INKEY$:WEND 
IbO,IF ASC(te$)>237 AND ASC(te$)<2 
4 THEN GOSUB 90:OOSUB 50 ELSE GOSUB 
170 WEND 
ISO z=z+1:IF z=1 THEN (ila=i:colum 
n=co:te$="":SOTO 130 
190 te$=" ":LOCATE cop(i:PRINT 
z=O:WINDOW #ipcolumncofilafi:PAp 
ER#i3: CLS #iIF i>7 THEN EN 
D 
200 LOCATE 124:PRINT"OTRA VENTANA 
S/N 
210 a$=INKEY$:IF aS="" THEN 210 ELS 
E IF a$-"N" OR a$-"n" THEN END 
220 IF a$="S" OR a$="s" THEN 
OOTO 130 
230 80TO 200 

Centro Comercial Guadalupe 
Ctra. Canillas, 136-1.  planta 
Tel. 200 80 65 MADRID 

Centro Comercial El Bulevar 
La Moraleja 
Tel. 654 16 12 MADRID 

Tambin abierto domingos de 10 a 2 
Centro Comercial Ciudad Sto. Domingo 
Ctra. de Burgos, km 28. 
Tel.: (91) 622 12 89 
Algete (Madrid) (Central) 

34 ',,COOBB AMSTRAD 

Servicio T  cnico 
Para AMSTRAD 
en Galicia, 
Le6n 
y Asturias. 
C/ Magdalena, 213 
El Ferrol 
Tel.: (981) 35 84 32 

MICRO DEALER 

MA YORISTAS DE INFORMA TICA 
AMSTRAD PCW 8512 
AMSTRAD PCW 8256 
AMSTRAD CPC 6128 Fsforo verde y color 
AMSTRAD CPC 472 FSsforo verde y color 
Impresoras, Interlaces. Joysticks 
Diskettes de 3 pulgadas, cable, etc. 
Sinclair. Commodore. New Print, 
Spectravideo, Compatibles iBM 
C/. Comandante Zorda, 13. 28020 Madrid 
)ells. 233 07 81 - 233 07 35 
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P, iquet: inte,rado de gest(&n que e permit"  d.. de f; ma ;cil optimlzando el 
tiempo, 1,1 . esti6 : Io&71 de u emresa. 
Bte paquete incorpora los pro, grama de CONTABILIDAD. FA TUR' CION y 
CONTROL DE STOCKS ,den|as de un progr,ma de CONTROL DE PEDID05 todo 
29.900 pts. 

3 

'.,, , de form, interactiva. C, ontr.ole u empresa ,or 61o 
'  ,. • .  • 
,  /  < ,, .... ,," , 
Facturaci6n 
cad d e fdanej9 y I. 
dotenda que prmite I 
traajar con cuentas de hasta 
cuatro niveles, con capacidad 

segbn diskette de 500/1.000 
cuentas y de 2.000/10.000 
asientos. 
Permite modificar o dar de baja 
apuntes ya integrados en el 
Mayor, programaciones de 
cierres, ficheros de 
Contabilidad y Cuenta de 
lotaci6n, ejecuci6n de 
alances comparativos, 
reenlazndolos por meses, 
clave acceso restringido, etc... 

Programa de gran agilidad y 
rapidez que incorpora el 
Control de Clientes, con gran 
capacidad de datos, Articulos, 
Albaranes, Facturas y recibos. 
Ceneraci6n autom#tica y 
manual de documentos, 
valoraci6n, a voluntad de los 
albaranes, todo tipo de listado, 
incluido el del IVA de las 
facturas emitidas para la 
declaraci6n de Hacienda, etc... 

15.500 pt  s. 

Gran capacidad de datos, le 
permitir#n a Vd. Ilevar con 
claridad y sencillez el control 
de su stock. 
El programa le permite Ilevar 
un fibro de entradas/salidas, 
reorganizarlo, hacer listados de 
stocks .... le avisar# de los limites 
de stocks, minimo y m#ximo 
por articulo, etc... 
Todo para la Ilevanza de su 
almacn. 



 tSJ'Ot / Versi6n completa del 

Editor Config 
GEN 80: Macros 
disco, ensamblador condicional 
manipulaci6n bit a I [): 
Monitor y debugger, puntos 
. ruptura y presentaci6n 
memoria. 

famoso C-Hisoft para 
Capacidades de E/S, ficheros 
aleatorios y modos de acceso 
binario y ASCII. Incluye 
editor ED 80 compatible 
WORDSTAR. 
15.000 
mplementaci6n total del 
MODULA-2 para 
CP/M. Comp.ilador en un 
finico paso, listo para ser 
linkado. 

[ransforme su impresora 
en una imprenta. Permite la 
impresi6n en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 

Especial para Z-80. Deja el 
programa fuente en un 
programa directamente 
Incluye ED 80, 
editor compatible con 
WORDSTAR. 

Permite trabajo directo 
sobre disco, bien en 
hexadecimal o ASCII, recu 
ficheros perdidos 
alterar y/o proteger 
directorios, todo bajo 
MSDOS y CP/M. 

:)iseffado especificament 
para AMSTRAD. Incluye 
THE WAND, creador de menl 
de programas. 

,ffade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impresi6n 
a los ya existentes. 

en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
tel6fonos, Calendario, 
Directorios, etc... 

Permite realizar gr,ficos 
sofisticados en su impresora. 
Grficos de pastel, histogramas 
comparativos, grficos de lineas, 
Imgenes de 980 PIXELS de 
densidad. 

Sencillo sistema de 
MAIL-MERGE. Id6neo para 
producir circulares. Incluye 
editor. Permite la realizaci6n 
de etiquetas autoadh 

cada disco un 
n6mero de erie y ademSs 
indexa y cataloga los ficheros 
en ese disco. 

M6dulo de textos, 
preparado para ser 
empleado con nuestro lpiz 
6ptico ESP o con las teclas de 
cursor. 

;lore las enormes 
del procesador 
textos NEWWORD; 
desde los fundamentos 
proceso de textos. 

audio con 
instrucciones claras para 
aprendizaje y apoyo al manu 
del tratamiento de textos 
LOSOSCRIPT. 

Nueva versi6n mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 
capacidad en gr&ficos. 

Curso de iniciaci6n a los 
teclados, recomendado para 
personas no acostumbradas  
SU USO. 

Conozca a fondo las 
posibilidades del teclado, 
escribiendo con sus diez dedos 
en lugar de s61o dos. 

6.200 

los 4i 

ptas. 

9.900 9.900 
no 
induido 

DE VENTA EN LOS MEJORES COMERClOS DE INFORMATICA 
Si Vd. tiene aluna dificultad para obtener tos programas, puede dirigirse a: 
Ofiles ,a. Isabel II, 16-8 -0 
Tels. 455544 - 455533 
Inform  tica 16lex 36698 
20011 SAN SEBASTIAN 
CONDIClONES ESPEClALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSlVO PARA ESPAIA 



.180 
, LEHANIA 74- 
ARGENTINA. 7' 
EPANA 

,Alguna vez penso en 
organizar su propio cam- 
peonato de ftbol? 
Ha Ilegado ese momento. 
Invente un uniforme para sus jugadores, elija entre sus 
equipos favoritos y reclute a los mejores futbolistas, 
creando asi un equipo campebn, dotado 
con los mejores jugadores 
de todos los tiempos... 
"SU EQUIPO 
SERA EL CAMPEON'. 

PR PAREE 
PARA EL qO 

DISTRIBUIDO en 
Catalufia y Baleares por: 
DISCLUB, $. A. 
Balmes, 58 
BARCELONA 
Telf. (93} 302 39 08 

Fabricado y 
distribuido bajo 
licencia pot: 

COHPULOGIC 
Santa Cruz de Marcenado. 31 28015Madrid TemPI 2411063 
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Con el objeto de fomentar las rela- 
clones entre los usuarios de AMSTRAD, 
MERC,4DO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERC,4DO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Fnvianos tu anuncio mecanografiado 
a: HOBBY PRESS, $.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
IABSTENERSE PIRATAS! 

Vendo 1.--Amstrad CPC-664 
con pantalla color. 2.--Impresora 
PRINTER-80 INDESCOMP 
(adaptada a Amstrad) matricual, 
40-80-142 col; 80 cps; 640 puntos 
gr6ficos. 3.--Juego regalo: 
COMBAT LINX y otros. Precio 
total: 160.000 ptas. Tel. (93) 
788 07 53 (21,30-22,30). 

Me gustaria en primer lugar 
contactar con usuarios de CPC 
464 para intercambiar ideas, 
juego, etc. (a ser posible de Avila 
aunque no necesariamente). En 
segundo lugar me gustaria 
obtener el Exploding Fist. Bien par 
d/nero o bien par otros 
programas. Tambi6n estoy 
interesado en: Beach Head, 
Hypers Sports, Decatlhon, Fighter 
Pilot. Con las mismas condiciones 
que Exploding Fist. Estoy abierto a 
otras ofertas. Los interesados 
Ilamar al (918) 22 74 99 desde las 
6 alas 6,30 o bien de 8,30 en 
adelante. Fines de semana a 
cualquier hora. 

Vendo Amstrad CPC-464, 
monitor color en perfecto estado, 
incluyendo late de 50 programas 
a escoger entre m6s de 100: 
DEVPAC/AMSWORD 
I I/PASCAL/AMSBAS E SCR EEN 
DESIGN ER/AMSCALC .... Oltimos 
juegos, 7 libros. Todo par 85.000 
ptas. M6s informaci6n: Eliseo 
Gonz61ez Real c/Pereo, 4. Viveda 
(Cantabria). Tel.: (942) 88 48 24. 

Urge vender Spectrum Plus 48K. 
(7 meses de garantia). Fuente de 
alimentaci6n, Interface Kempston, 
4 libros de programaci6n, ms de 
30 programas (exploding Fist, 
Contabilidad, etc.) 24.000 ptas. 
Interesados: AIf6rez Monedero. 
Academia G. a Civil. Aranjuez. 
Tel. 891 21 45 (91) ; de 17,30 a 
19 horas. 

Vendo programa de contabilidad 
igual que el que viene en la 
revista. Precio razonable. 
Interesados Ilamar al Tel. (91) 
207 81 89. Preguntar par Pedro. 

Vendo consola de videojuegos 
Atari-2.600, un joystick, 5 
cartuchos, Defender, 8erzeck, 
dog'em, Space Invaders, y Missile 
Comand. Ms 2 mangos de 
paleta, m6s instrucciones en 
castellano, cables, etc.; todo ella 
casi nuevo yen pefecto estado de 
funcionamiento. Adem6s 5 revistas 
de Microhobby (Spectrum). Todo 
ella par 19.500 ptas. 
(negociables). Interesados Ilamar 
al tel.: 23 51 14 de Murcia. 
Preguntar par Javier (llamar a 
cualquier hora de la tarde de los 
s6bados). 

Vendo Amstrad CPC 464 color. 
Programas utilidades 
(Ensamblador, desensablador, 
copi6n), juegos muy buenos 
(ajedrez, marcianos, codename 
mat, etc.), manual del firmawre, 
Pascal (Hisoft Pascal), tratamiento 
de texto (Amsword), programas 
de dibujo (CAD/CAM, arffsticos, 
etc.)... 60.000 ptas. Noches. 
Victor, Tel. (93) 210 23 69. 

Estoy Jnteresado en comprar un 
monitor color, o cambiarlo par 
uno GT/65 con garonfia 
Indescomp, comprado hace 2 
meses, pagando la diferencia 
justa. Tambi6n cambio juegos, 
programas, utilidades, etc., tengo 
unos 100:mandar6 lista. 
Interesados dirigirse a: Urb. Bahia 
de AIgeciras Bloque 2C-2: 2.°C. 
Algeciras (C6diz)... Manolo 
Benitez. 

Deseo contactar con usuarios de 
Amstrad, de Gandia y 
alrrededores, para ofrecerme 
coma profesor de programaci6n 
(200 ptas/h). O para intercambiar 
listados e ideas. Abstenerse los 
mani6ticos de los juegos. Santiago 
Torrego Calabuig. c/Abad Sola, 
92, Gandia (Valencia). 

Desearia contactar con usuarios 
464 para cambio de utilidades y 
programas. Interesados escribir a: 
Juan Carlos Martinez Liz6n. C/ 
Pedro Diaz, 12, 1. ° A. Cartagena 
(Murcia). 

Vendo o cambio programas de 
Amstrad. Usuarios de toda 
Espaa interesados, escribir a 
Carlos Rib6 Vilaseca. 
Urbanizaci6n Mirasol, 1, Solana 
(L6rida) o Ilamar al tel. (93) 
811 28 35 para Ilamadas de fuera 
de la povincia de Barcelona. 
Llamar de 1,30 a 3,00 y de 8 a 
9,30. 

Vendo Amstrad CPC 464 con 
monitor en f6sforo verde. Manual 
y 100 programas (juegos, 
aplicaciones...) incluidos. 
Interesados Ilamar al (91) 
260 79 94. Preguntar par Juan 
Carlos de 3 a 5. 

Cambio juegos excelentes de 
todo tipo (knight Lore, Alien 8, G. 
P. Rally li, Exploding Fist, etc.) 
Tambi6n utilidades. Escribir a 
Jes0s Alonso, cWRuiz 9 4.°C, 
Madrid 28004. Tambi6n Ilamar 
desde las 22,00 al 448 98 05. 
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POR LA COMPRA DE TU ORDENADOR ESTE EQUIPO COMPLETO DE BASKET ES TUYO.. 
TAMBIEN REGALO DE INTERFACE 2 Y UN JOYSTICK AL COMPRAR TU SPECTRUM 128 O PLUS 

• Como siempre curso gratis de informtica. 
• Spectrum, Q.L., Commodore, Amstrad, Spectravideo 
y MSX. 
• Teclado multifunci6n con sonido, 13.200 ptas. 
• Joystick+ Interface+ Kempston, 3.200 ptas. 
• Lfipiz Optico, 3.500 ptas. 
• Bibliografia 25% Dto. 
• Tarjeta de Socio Club Sinclair Store. 

• Servicio T6cnico de Reparaciones, 3.700 ptas. 
• Necesitamos distribuidores, somos mayoristas. 
• Ampliaci6n de memoria Amstrad 464 6 6128 256 K, 
20.900 ptas. 
• Disco de Silicio, 19.900 ptas. 
• Por la compra de un spectravideo, 328, 25.000 ptas. o 
spectravideo 728 MSX, 39.000 ptas. Te regalamos un 
Joystick Quickshot I m,s 10 cintas y un cassette. 

Amstrad 8512:169.900 (IVA incluido). Amstrad 8256:129.900 (IVA incluido). Amstrad 6128:84.900 (IVA incluido). 
Liquidacibn Software: West bank, Gremlins, Ole Toro y 200 titulos m&s, desde 990 ptas. 

50M 05 PROFESION ' LE5 

BRAVO MURILLO, 2 DIEGO DE LEON, 25 AV. FELIPE II, 12 
(Glorieta de Quevedo) (Esq. Nzi6ez de Balboa) (Metro Goya) 
Tel. 446 62 31 - 28015 MADRID Tel. 261 88 0! - 28006 MADRID Tel. 431 32 33 - 28009 MADRID 
Aparcamiento GRATUITO Magallanes, I Aparcamiento GRATUITO NQfiez de Balboa, 114 Aparcamiento GRATUITO Av. Felipe II 



